
ILS ONT GAGNE! 



Voila les gagnants de la premiere manche du concours HEBDOG1CIEL- 
GeorgesLECLERE: £ 

Francis RODRIGUEZ pour BALADE DE A a Z sur ORIC 1 

Rene JALLERAT pour AU PIED DE LA LETTRE sur TRS 80 

Jean Pierre LALEVEE pour ALPHABET FLASH sur COMMODORE 64 

Henri CHOUTEAU pour POKALPHA sur HECTOR 

Alain NOGUES pour TOURBILETTRE sur CANON X07 

ROTTENBERG pour ALPHABETE sur APPLE M 

Chantal DALLE pour ALPHABET sur T07 

Monsieur SALIVA pour OUIST1TI ALPHABET sur TI99.4A Basic Simple 

Berlrand LEROY pour POKER ALPHABET sur TI994A BASIC ETENDU 

Tous ces heureux gagnants on! deja lassurance d'un contral d'edition 
pour leur logiciel. qui sera promotionne a la television a la rentree et, 
en plus des quelques prix deia gagnes. (un agenda CASIO. 20 K7 vier- 
ges et un abonnement d'un an a HEBDOGICIEL), concourenl pour le 
pnx toute categorie. 

Le grand gagnant sera connu le 25 Juin et gagnera la bagatelle de: 



Un APPLE Me 


chateau du Oiable'. pour ATMOS 


Un CANON X 07 


1 cassette HEBDOGICIEL "Cen- 


Un COMMODORE 64 


trale Nucleaire'pour ATMOS 


Un ORIC ATMOS 


1 cassette HEBDOGICIEL 


Un Agenda Electromque CASIO 


ORIC ATMOS N° 1 


PF3000 


1 cassette HE80OGICIEL 


Un TEXAS TI99 4A 


TEXAS N° 1 


Une impnmante EPSON 


1 cassette HEBDOGICIEL 


Un abonnement a vie. a HEBDO- 


TEXAS N" 2 


GICIEL 


1 cassette HEBDOGICIEL "Le 


Une disquette HEBDOGICIEL 


Rubis sacre" TEXAS N° 3 


APPLE N* 1 


1 cassette HEBDOGICIEL 


5 logiciels VIF1 NATHAN 


COMMODORE 64 N° 1 


5iogiciels ROMOX 


1 cassette HEBDOGICIEL 


5 modules |eux TEXAS 


Commodore VIC 20 N" 1 


10 logiciels de jeux pour 
COMMODORE 64 


t cassette HEBDOGICIEL T07 


N° 1 


SHARP PC1245 


1 cassette HEBDOGICIEL 


SHARP PC 1500 


CANON X07 N° 1 


l cassette HEBDOGICIEL 'le 





Le 25 Juin, le jury aura vote. Dormez bien jusqu 



EDITO 



Les ordinateurs francais seront 
peut-etre bientot en majorite dans 
Hebdogiciet: HECTOR tart sa ren- 
tree la semaine prochaine, le 
THOMSON T07 est deja present 
depuis longtemps et si les TO7'70. 
M05 et EXCELVISION sont bien la 
a la rentree. cela fera 5 ordinateurs 
francais contre 7 americains. 5 ja- 
ponais et 4 anglais. Esperons que 
les japonais n'envahiront pas le 
marche francais avec leur nouveau 
standard MSX et que d'autres 
constructeurs de i'hexagone s'y 
mettront rapidement et sortiront 
autre chose qu'un succedane d'or- 
dinateur du genre d'Alice! On mur- 
mure le nom de MOULINEX pour 

le proCh3ir» -*■«• f-.-uvsc^ * wn»;. 

qui serait K ->te a- 

arts menagers! Le premier ordma- 
leur domestique capable de piloter 
un robot menager pour monter une 
mayonnaise, les menus vont enfin 
etre savoureux ! 

Les resultats du premier tour du 
concours Georges Leclere sonl pu- 
bties cette semaine. Pas de surpn- 
ses les ordinateurs les plus connus 
sont bien la. deux deceptions ce- 
pendancAtarj et Vic 20 pour les- 
quels les programmes recus ne 
sont pas a la hauteur. Nous 
scmmes habitues a recevoir peu 
de programmes pour Atari qui est 
deja sorti pendant un mois de 
I'hebdo. mais le Vic 20 nous 
etonne un peu. c'est pourtant une 
petite machine sur laqueMe on peut 
arnver a programmer normalement. 
non 7 Ouanl aux gagnants, la en- 
core pas de surprises, ce sont 
presque tous des habitues qui onl 
ete pubiies a plusieurs repnses. 
nous allons bientot etre obliges de 
les engager a plein temps! 

Gerard CECCALDI 



MONITEUR sur APPLE 



Qui n'a jamais ete confronte aux proWemes poses par la saisie des taWes 
de forme ou de routines binaires (sans assemoleur?). Plus doctets recalci- 
trants avec ce programme indispensable. * 

Patnck TWU8ERT 



IB 


KINEM: 8i9l 




N0H DU PROGRRHHE 1 • ilff 


--- 


TEXT 


290 


IF LEM <HP*> <. 1 OR LEW vN 








P»> > » OR LEFTS <NP«.1> v 








ChR* 465? OR LEFT! <NP»»I> 








> CHRs <98> THEN OflLL - 




HOME : IWERSE : UTi* 12: HI* 




1S55: wJTO IS« 




3: 1WERSE : PRINT -*** H O 


219 


PRINT ; PRINT i HT« 11: PRINT 




N I !El)R •***: N0RMHL : FOR 




•a T T E H T I H -: PRINT 




I = i to :>■.<: next I 








HUME : PRINT - -C£ PftObftA 








"ME SERT it LECR1TURE ■: PRIN1 




HToe ii! print - see 




"DIRECT! DBMS LE H0NITEI.«- 




...IFFF-: PRINT : PRINT -£LL 




• PRINT ; PRINT : PRINT 




ES SONT RESERUEES P "WNITEU 




•i a soui.€bi*re cc 

..--. L .t£ OE* 
^WINT *CES ECR]TUR£S SE FAIT 




R' ET": PRINT -SES kWRlABUS 


* 


E28 


VT» 15: rt*x - 938: PRINT 




>*jto»«tiquew£nt- 




*EN HO«U.CIHrtL- 


im 


PRINT -0UQK) UOUS ORRJLCT « 


. .::--• 


t = l:NT - MtW - 17 




L COftESSE OE FIN-: PRINT 


2>te 


UTQC UTl PRINT -OORESSE OE P 




: PRINT : PRINT 




EPRRT :• 


ttu 






i-'TRB UT: NTflB NT: 6tl fl»: GOSUB 




LEtHT LES SOUUER* 




919: PRINT at: I • I « liMT = 




PRINT -MPNUELLEHGlT . EN COU 




t"T • 1: IF 1 > 4 Tn£n i!« 




RS 0E TRflWIL ," 




80T0 2S0 


IX 


PRINT "POR uh CTRL -,- . 




HK1 ■ 26:Vt • 18 




: PRINT : PRINT : PRINT 




UTi* Iffi NT06 1: PRINT -POftt 












DU OJRSEUR SE FAIT" 




Ulfte UT: HTftB HT: C-ET RSl il-ui^ 




F-RINT "POP LES TOUCHES : 




968: PRINT Hf : I = I . l t MT ■ 
HT • I: IF I > 4 IMEN 314 






ne 


OOTO 3S« 




Htf •* 


:■■ 


UTrtfi 28: HTflB i: PRINT "OK < 


. . 








• ENTREES DES 0ONNEES* 




Suite page 2 






LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07. CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
DRAGON . HEWLETT PACKARD HP 41 . MULTITECH MP - F II . 
ORIC1. SHARP MZ, PC 1251, PC 1500. SINCLAIR ZX 81 ET 
SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HIPPORE8US irouve/ < egression qu. se cache dans la D de I h.ppocampe Decompose en trois syllabes dans les trois premieres cases ie tout a evidemmont un rapport avec I mlormat.oue 
isolution en page intefii.-urei 




V MM ODl5 Juin 1984 J 



Allemagno 3,50 DM ■ Belgique 55 Frs ■ Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs ■ 



MONITEUR 



Qui n'a jamais 6t6 confronts aux probtemes poses par 
la saisie des tables de (ormes ou de routines binaires 
(sans assembleur?) Plus d'octets recalcitrants avec ce 
programme indispensable. 

Patrick THUBERT 
UWsatton: 
Elte est trfcs simple: 
Moniteur vous demande: 
■ nom du progfamme 
- Adresse de depart (en Hexa) 
• Adresse de fin (en Hexa) 

Et voila le tour est joue. il ne vous reste plus qua ecnre toutes vos 
vateurs Moniteur s'occupe commme un grand do vous inserer les 
espaces. plus besoin de la louche RETURN, il vous signalera egale- 
ment par un BIP a chaque fois que vous voulez renlrer un caraclere 
different de (0123456789A8CDEF) mis a part les Iraditonnelles tou- 
ches (UKM) qui vous seront bien pratiques pour corriger une erreur 
evenlue'le. Vous avez aussi la commande (CTRL S) pour des sau- 
vegardes partielles et intermediaires de programme relativement 
long, ceci pour eviter la perdition tolale dun programme en cas de 
coupure ou de micro-coupure d'electricite. Malgre cela vous avez 
une sauvega/de de la totalite de ces ecritures automatiques en finde 
programme. 

Rappel des commandes: 
l:HAUT 
J: GAUCHE 
K: DROITE 
M:BAS 

CTRL S : sauvegarde intermediaire 

Attention: II ne faut pas ecnre de programme entre 800....1FFF, ces 
adresses sont reservees a Monitor. 

Si toutefois vous en aviez besoin, ecrivez a partir de 4000 par 
exemple Ensuite relogez !e a ladresse adequate par les comman- 
des survantes. 
CALL-151 (RETURN). 

Adr. de destination : ADR de debut de zone. ADR de fin de zone 
M(MOVE). 
Exemple: 800 < 4000.41AB M. 



Suite de /a page 1 



+ 
•»*** 



0sH>-n GET Zt: PKIHT f IF Z 
* = "N- TH£H rtO* ■ --:HFi ■ 
-": GOTO 176 
328 IF Zf = "0- THEM 349 
338 COLL - 1852: GOTO 316 

348 REM mm « n » mn 

* UHLEURS flORESSES ♦ 

3S6 >■ 
3S8 t 

37H GOSUB 188ft 
338 L0 = Pf - ( 
38.-L0* ■ , 
398 REM 00*=«OR.rjEPflRT<HE)0 
488 REM LOS^LOHBUEUR (HEX) 
418 REM eft=ftm.OE FimHEX; 
428 REM «D=nOR.DEPflRT (DEO 
438 REM UH-OMGUEUR <DEC> 
"" REM nF=nOR.DE FIN <DEC> 




558 f*l ■ UW:fiE - MJ 
568 ur = 2(HI ■ 7 

578 urns i: Hrne ii iiiucrse : priht 
•it mm i * <4 - leh 

• m * . >: PRIM! 1*1: HORMd. 
588 If in = 7 THEM UTflB UT: HTT* 
1 * 14 - LEM (RES>>: PRIMT 
HE»|"-' 

■■ -' urce ur: nrce ht: get ei«j goslh 

688: PRIHT ElOiHT - Kl • I 
688 UTP8 UT: HTF1) HI: GET E2»: GOSUB 

778: PRIHT E2*;:MT - HT ♦ 2 
1LISTG18.1188 



101 I StL - 1*J«1 -CXT 

Ii rcct : mix • msfi im «*ih*t 

,.»/«•»« (*-> EC*ITUf€S-: SCT 
Mi PRIHT : PfclMT trf'tOCl. 

.j- : prihT [» J*8SAUE"**fi**a 

-;«N'.L-iLt>: £►* 

. . tl*w 
980 EN£i 
• 18 REM • 



B18 IF HT > 29 THEM HT - 
UT ' 



/iUT = 



628 IF UT > 23 THEM >)J = i)T - I 

CPU. - 912 
638 OE = OE * I:H ■ OE: OOSUB 183 

8:«EI ■ HI 
^48 REM »♦,.«,»,».».-........ 

t CHRRGEMEHI < POKE I • 



658 M* i 



El* * E2«: 60SU6 l«W: POKE 



660 GOSUB 688 
Shi bOrO 578 
688 REM « 

» COMTROL D-EDIT10M < 



I - LO: GOSUB 18 



458 REM **** 

•PRESENTATION ECRflH+ 

468 HOHE 

479 PRIHT -ROR.0EPRRT-: PRIHT - 

HEX DEC: HTfle 1 * C4 - LEM 
<QD*>>: PRINT 00*: UTflB 3: HTR8 
6 ♦ <5 - LEM < STR* <flO>)): 
PfllMT RO: PRINT " 

489 PRINT " L0N6UEUR ": PRINT " 

HEX 0EC-: HTA8 1 * (4 - LEM 
(L0*J>: PRIHT LO*: UTR8 7: HTflU 
6 + (5 - LEN i STR* <L0>J>: 

PRIHT LO: PRIHT " 

439 PRINT "ROR.OE FIN": PRIHT - 

HEX DEC: HTP6 1 * <4 - LEN 
<(#*>>: PRINT OF*: UTfle Uj HTREt 
6 * <5 - LEH ( STR* <RF>>J: 

PRIHT OF: PRINT -=== 

SOB PRINT - CUftSEUR-: PRIHT : PRIHT 
"V HOOT": PRIHT "'J' GflUCH 
E": PRIHT "'K- DROITE": PRINT 

"W 8RS": PRIHT 

■': PRIHT "SOUUESOROE-: PRINT 
" EH COURS ": PRINT : PRINT 
* CTRL -S" 

510 UTflB I: FOR I = 1 TO 23: HT09 
lis PRINT "'": NEXT I: UTHB 
1 

W8 UTOe 1: HT06 17: PRINT 'NOM: 
-;NP* 

539 POKE 32,11: POKE 33.29: POKE 
34,1 

548 REM tw 

♦EDITION* 



699 REH El* 
799 GOS1J8 S59 
719 IF El* = "I" OHO UT > 2 THEM 

UT = UT - l:HE = OE - 8:H = 

HE: GOSUB 18.38: RES = H*: POP 

: GOTO 576 
7£d IF El* = "M" 0N0 <)T < 23 THEH 

UT = UT * 1:RE = RE * 6:H = 

RE: GOSUB 1838:wE* = MS: POP 

: GOTO 579 
738 IF E1S = -J* (■>«_) HT > 7 IHEM 

HT = HT - 3:fi£ ■ (£ - liH » 

RE: 609JB 1639:0E* = MS.- POP 

: GOTO 578 
.'48 IF El* = "K" OHO HT < 26 THEH 

Hi = HT * 3:0E = HE * 1:M •> 

RE: -iOSue 1639:OE* = MS: POP 

: GOTO 579 
756 IF OSC <E1*> < 48 OR RSC ( 

El*) > 57 THEH IF OSC (El* 

> < S5 OR OSC (ElS) > 78 THEH 
CHLL - 1952: POP : GOTO 57 

9 

769 KtlUfii* 

?7H REM £2* 

789 GOSUB 859 

7$U IF E2S = -i" RNO UT > 2 THEM 
HT = HT - 1:UT = UT - l:ft£ = 
HE - 3:H ■ RE: GO>UB 1838: HE 
t = Hi: POP : SOTO 578 

S88 IF E2* = "M- OHO UT < iZ THEN 
MT = HT - 1:UT = UT + I:fifc = 
OE * 8:N = 0€: SOsUB 1838:RE 
* = N*: POP : GOTO 579 

81W IF £2* = "J- MHO HT > 7 THEN 
HT = HT - 1: POP : SOTO 578 

»26 IF E2* = "K- RNO HT < 28 THEN 
HT = HT * 2:OE = RE + J:H = 
RE: U0SU6 1639:fl£* = M»: POP 
: GOTO 578 

*39 IF RSC Ci'a> t 48 OR RSC ( 
E2») > 57 THEN IF fiSC <E2s 

> ( 65 OR RSC ' E2$ > > 78 THEN 
COLL - 1852: POP : GOTO 69 



* SfiUUEGfiRrjE ■ 

868 OS = CHR* .13> ♦ CHHS C4> 

978 If El* = CHR* (19> IHEH PRIHT 

0*i-BSfiUE-iHP*i-,H-iOOi*,L-J 

LO: POP i GOTO 378 
889 IF flE = OF * I TMtH FOR I - 



'«28 IF I = 1 »* R* ~ ' ■ I 

OR I = I OW' <rt = **♦- T«N 
p.*- : ORU. - l*Wi eOTO 25 
9 

■i» IF H* ■ CHRI '13' Tr*H POP 
: GOTO 279 

9«fl If RSC •it ■ ' 48 OR R^: 'C 
%y > 57 THEH IF OSC tftf) 
^.5 m i'*- - R* ■ ■ W n ^** CfiU- 

- 1952: FW : BOTC 258 
359 RO* * AGS * »*: ft£H»« 
969 IF 1 = 1 *M> «* ' CV*I ■ : 

y* 1 = i MHO «« = "0" TMEH 

POP : COLL - 1832: GOTO 27 

370 IF «* ■ CHR» €13) 'HEM POP 
: GOTO 316 

389 IF RSC <0*> < 49 Oft RSC < ft 
j> > 57 THEH JF RSC <R*> < 
*5 Oft RSC * R* ■ ■ ?*> fHEM CftU. 

- 1952: POP S 601 
338 OF* = OF* • MS: RETURN 

1988 IF RO = RF THEN FLRSH : PRIHT 

-OOft.OEPRRT - ROR.DE FIM"! NORMA. 
:hD* ■ ":0F| - ": POP : «T 
0(: GOTO 228 m , 

1919 IF 00 > RF THEN FLRSH : P"IHT 
-ODR.OE FIH < MDR.DEPfiRT-: NOflMCL 
:m0* ■ '-:*'* - ": POP J G€T 
0*: GOTO k2v 

1928 RETURN 

1939 REM »*♦*■►*+***♦»♦+* 
. COMUERSICW- • 

1848 REM •*♦ OE OWBj **• 

t'J58 HS = -8U345G7890eCtCf-:H* « 

19b9 = INT 'H ' l6>'« r H - 16 
. 0:H = P:M* = M1U* 'HS.R * 
1,1 ) ♦ M*: IF H < ■> 8 THEN 

1879 RETURN 

1988 REM •** MEX^CCC *« 

1998 L = LEM <M*):H = 8: FOR 1 = 

1 1(1 LiK • RSC < "IDS <HS.I 

.!>> - 49: IF K > 9 THEN ¥ * 



U* 



1G • 



NEXT : RETURH 




LABYRINTHE FOU FX702 p 



N'avez-vous jamais reve de vaincre le Mtnotaure? 
Grace a ce programme, vous pourrez prendre la place 
de Thesee. 

Benoil BONNELIER 
R6gle du jeu: 

Le jeu se derouie altemativement sur deux parcours. I'ordinateur 
selon son humeur vous permettra de sauter une a qualre dalles. Sur 
le parcours principal (le numero de la dalle seu!) vous lera combal- 
tre un aigle. Sur le second (le numero de la dalle suivi dun B) vous 
lera remporter vos vidoires contre un rat. Vous avez d6(initivement 
perdu si la difference entre vos combats gagnes et vos combats 
perdus est inferieure a zero. Apres chaque corneal (perdu ou 
gagne) vous changez de chemin et conlinuez sur la dalle ou vous 
vous 6liez arr6l6 le lour precedent. 

2) Le parcours principal. 

Si vous etes sur les dalles: 1. 3, 6. 8. 11, 13. 16, 18. 2 1. 23 ou 24. 
vous combatlez laigle. 
L'ordinateur vous renseigne: 

- du nombre de lances de lanimal 

- du nombre de lances du joueur. 

- de voire temps de reflexes. 

Le loul etant cnoisi aleatoirement. Lorsque l'ordinateur aftiche "ciel" 

vous devez presser la touche S. 

Si il affiche "milieu", vous devez presser la louche 2. 

Si il affiche "sol" vous devez presser la louche . 

Si vous n'appuyez pas assez vite. l'ordinateur affiche "sang! " el 

vous perdez de a 7 lances. 

Si l'ordinateur affiche "evanoui". vous devez prosser la touche ' et 

I'animal perd de a 7 lances. 

SI vous gagnez le combat, l'ordinateur alfiche "plein coeur". 

Si vous perdez. il aftiche "perdu". 

Si vous tombez sur la dalle 4 vous passez par un souterrain el vous 

vous retrouvez sur la salle 14 

Si vous tombez sur la dalle 15. vous tombez dans une fosse et vous 

vous retrouvez sur la dalle 5. 

Si vous tombez sur la dalle 19 vous retournez sur la dalle depart el 

vous recommencez tout a zero. 

Si vous tombez sur d'auties dalles. I'ordinateur vous encourage en 

affichant sort "quel courage", soil "Ant Reposr. 

3) Le parcours. 

Si vous etes sur la dalle IB. 48, 68, 9B. 11B, 148. 168, 19B. 21B 
ou 25B, vous combatlez un rat. 

Pour ceci. il vous faut appuyer sur la touche 1 si l'ordinateur indlque 
"gauche", sur la touche 3 pour "droile" el 2 pour "milieu". Le combat 
est similaire a celui qui est contre laigle 

SI vous arrivez sur la dalle 18B. vous etes bloqu6s par uno porto et 
vous devez aller chercher la del a la dalle depart; vous recommen- 
cez tout a zero. 

Sur les dalles sans embuches, l'ordinateur afficho "la THESEE' ou 
"vous mangez". 

II occupe les dalles 25 a 29 et 258 a 29B. II s'y cache et ne daigno 
sortir pour vous combattre que lorsque la difference entre vos 



combats gagn6s el vos combats perdus esl suoerieure ou egale a 
3. Si ce nest pas le cas, vous retournez sur la dalle depart et re- 
commencez tout a zero. 

St e'est le cas, vous avez comme lui 50 lances et voire temps de 
reflexes esl de 0,8 seconde. 

Lorsque vous le combatlez interviennent les touches 5. 1 , ".", 3, 2. * 
(voir combat de I'aigle et du rat). 
Bonne chance et bons combats. 
Mode demploi: 

Charger le programme et les variables. 
Lancer le programme par F1PO. 



«* m LIST 

»«ts 26 PR6= 1686 

f8i IS88 STEPS 
2 SOTO !8 
5 6S8 1881SSB 118 

: soto see 

? GS8 188:658 115 

: SOTO S58 
18 WIT 2:»="«iLBB 
iIUNTHihFOUii*- 
:F0R ft=l TO 19: 
P?T flI0!l,B) 
12 KXT Hi STOP 
H «fl!T 25H=D)t"E 
TES SUP It Ofitl 
E=)":PPT CESifl 
=8:S=8iT=8iZ=8 
15 SOTO 5 

188 C--1HT (IBWH 
lfPRT MlFtlCiE 
l:RET 
118»=mC:PPT lift! 

ET 
115 B=B+C:PRT tlBlH 

CPET 
288 PPT M;M:"L BI 

61E":6SB 22e 
265 SSS 23e:SSB 235 
ISSB 258I60T0 2 
5( 

212 PPT H;Mi"(JH I. 
AT" ISSB 228 

213 6S8 248I6SB 245 



:6SB 258:6010 2 

58 
228 PPT MlHt;0t:»= 

INI (RfiNt»48)tl 

:X=IHT (MNIM8 

)t| 
22! IF T=Ii«=58:IF 

T=l;X=58 

225 P=INT (PBM«23) 
tlilF P<!4 THEN 

225 

226 IF T-l;P=I6 

227 PPT l»iVRX,WI 

yt;«,ot;»i;Pte. 

85;"SEC":PET 
238 WIT P:IF PfiSI> 

.5;PRT "Clft*!! 

F KEY«"5";60T0 

388 
251 >ET 

235 IF PBNK.5:PPT 
"SOL": IF KE'ft". 
"1S0TO 388 

236 PET 

248 If PBNK.5;PP.T 
"6BIICHE":IF KE» 
>T: SOTO 388 

241 PET 

245 IF RBNI>.5:PPT 
TifOITEMFttY 
«"3":60T0 388 

245 PET 

258 IF PUNK. 5! PPT 
"MILIEU": IF KEY 
i"2";60T0 338 



252 IF PBNt>.5:PPT 
'«:IF KEY="«":8 
0T0 385 

253 BET 

254 IF XiBlPRT "PLE 
IN C0EUP!":Z=Z* 
U60T0 7 

255 IF m;??,\ "COB 
SBT PER0U!":Z=2 
-I: IF Z<8;60TO 

256 IF Ni8:60TO 7 

257 SOTO 285 

253 IF N'JlPRT "CON 
8BT PERDU!":Z=Z 
-1IIF Z<8:60T0 

289 

259 IF 'fc8: PPT "PLE 
IN COE0«!":Z=2» 
l:60TO 5 

268 IF Ni8:60TO 5 

261 60T0 218 

288 KBIT 2:)=M»"RY 
EZ PER&U!":F0R 
9=1 TO 16:PRT H 
10(1, ft! 

281 NEXT fl:PRT (ill 

="««»i;bnt««ie 

IRttilt" 

282 FOR R=8 TO !9:P 
RT CSR RJIIttKnf 
I.DSiNEXT R 

283 PRT CSP 191" 

iFINl 
":EN0 



388 H=N-INT (RRNH8 

):PRT "SRHS 1 "^ 

ET 
385 X=X-IHT (PRHH8 

):PRT "BRRVO!": 

SOTO 253 
488 IF Z<3:60T0 898 
482 T=l:PRT MiOJi" 

LE !HH0TRURE":6 

58 228:R=18 
484 fi=R-t:IF n=9 TH 

EN 410 
486 PRT RlCSR I7!fl: 

SOTO 484 
418 PRT CSP 6:"«" 

60'****" 
412 SS8 238:6SB 235 

:6SB 24e:SSB 24 

5:6SB 258 
414 IF »<J;60T0 288 
416 IF fc8:G0TO 428 
418 SOTO 412 
428 t=M+"ETES EXCE 

LLEHT.":F0R fl=l 
TO 28-.PRT «i0( 

1,R) 
422 NEXT R:E» 
668 IF R)25:GOT0 48 

e 

684 IF R=I!60TO I 

685 IF R=3:60TO I 

686 IF R=6I60TO ! 
688 IF R=8;60TO I 
618 IF R=Il:60T0 I 
612 IF R=13:S0TO 1 
614 IF RM6160T0 I 
616 IF fl=18lS0T0 1 
618 IF R=21:60T0 I 




622 IF R=23!G0T0 I 
624 IF ft=24!G0T0 I 
626 IF fi=4;PRT "SOU 

TERPR1N":R=14:P 

PT 1:R 

628 IF B=15!fl=5:PRT 

'FOSSE", tlfl:60 
TO 5 

629 SOTO 788 

658 IF e>25:S0T0 49 

8 
656 IF MltOTO J 
658 IF WI60TO J 
668 IF B=6:G0TO J 

662 IF B=9:60T0 J 
664 IF B=1I;60T0 J 
666 IF B=I4:60T0 J 

663 IF B=16I60TO J 
678 IF 8--!8;S0T0 S9 

8 
672 IF B=19:60T0 J 
674 IF B=21;60TO I 

676 If 8=25:60T0 J 

677 GOTO 729 

768 IF RRHt;.5 THEN 

785 
762 PPT 'QUEL COURR 

SE"— .GOTO 5 
785 PRT "RHIREPOS!" 

:6OT0 5 
728 IF RBHK.5 TNEN 

725 
722 PRT "RN! THESEE! 

":G0T0 7 
725 PRT M;"rlRNEEZ 

:60TO 7 



t't VHH LIST 
YRR: 26 PRG: ! 



3 = II 
C =2 
D* =V0US 
Et ■ BEPFtRT 
Fl =SR0TEZ 
61 = DULLES 
Nt =B 
I ■ 288 
J =212 
« =DEVRHT 
I =8 
I. = B 
hi =LE CONB 
01 =RTTEZ 
P =16 
«l =TEHPS, 
R( =R£FLEXE 

X --=> 
t =e 

BI =8NINRl 

Yt =,LBNCES 

I =-13 
X > 14 

II =EVRN0UI 
I =-1 

I 



■ »>«TBNHII!EUX<»» 



TRAC MAN 



C est un programme ayant un peu I'apparence dun 

"PAC WAN'' mais le but du jeu est different il s'agit de 

manger le maximum de fantomes en un minimum de 

temps. 

La force de jeu est de 1 a 10 (1 facile et 10 dure) Le 

labyrinthe 1 est normalise, il est toujours le meme. 

Le labyrinthe 2 est aleatoire 

Le programme fonctionne sans extension memoire et 

avec les manettes de jeu. 

Frangois LOSFELB 




TO 7 



* CLEAR. .3 

10 FLAWS' 

11 DEFCRi. !"■.=*. i=e.-2. 20". 255. : 

12 D£F«t<2 *14. |£6, 79,200,34 ■.:..■ 



l7 t FWV*LZ'i ;USiSCftEE« J .e.ftlftt-' 

£-? F0RT»t TO 38 iLOCAUT,eiPRII»TCHB« 

"L0CftTET,83.»iPR|llTCH1»f(ia7JiNExn 
M 'rORIMTlOII LABVRIHTW I 

30 fOBT-i TO 22iLOC«TEe,T:?R]((l HRt 
=L0CATE39.T:PRINT >:j 127 I ME TT 



. 12? AND INT. PNr»»2 



*9 ) 



•I ?: ■ 



■20:. 



= : 



-INT RHptl4>! (0-1M1 -■,: If ■ »( 
REtN(fl,B) 12" ^-EN 4 = ELSE - 01 .,- 

46 [»INT<RM>*14*; :: = :s T ;nc..-,.- 

reeri ;.: .■ :;- then ■■■ else ;oto4< 

38 LO£«TEti.-:-.T=- = --;ii:it- ;-.-„t: NEXTT 

-•> -^' = :-zi-.i-i-^~\-i^:i:^iH: :■.<■■:■-■=- 
BiLOCATEl . :* : = [HI l HE Tl :HE T1 
~i} "05" = •*;?•■: !-h:-: =EmCE: s E«: :r =. =. 
BiLOCATECfKIPRIHT' ' : NE;.Tr : NE'-:TT 
88 COLORS* LOCATE l>. S*i PR] *TGe*< : 



90 I 



■19 



lie - PROGRAHIK '--■■..--. 




129 ■ 




289 IF CMOI-S THEM AA-STICK* 




US 1709. :~00.:600. 1608. 1808. 


: soe, i see 



13 
2** ■-_ lHOI-0 THEM : -:229 

218 [F :no;*: then aa>3T1C) i :■-. -- ;: 
SUB [206,1200,1100, 1108, 1308> I3A9J 

eee 

215 tF :ho:>: thei 

284 [F =: OHD »D THEtl SOSW 5888 

238 1" =- AHB -8 THEI ::\ .'-. 3088 

398 If CHOI*] 7«Ef« QN - L; = 2888,2188, 

2288.27*6 

?:a :■ :-: : ■ :,: ;,:- 2*et-.i60*. 

2"? 09. 2388 

488 IT X-C AH© V-t THE* EOSUO 5369 

429 if ■>- -ni =; •-.;■■ Y-l.l 5699 

4?? 5CQRE«SC RE+I 

448 LOCATE 13,5 :PRIM1 POINT! i ;ipftIHTS 

COSE 

988 GOTOJ00 

930 * 

969 ' SOUS PPOGPartHE PfiCHfiN 

978 ' 

1809 LOCATEX,Y!PRINT' *MF SCREE*Of-I,Y> 

OI27 THEN X-X-HPLAY'00' 

1910 COLORE 

1029 LOCATED. •{, 8: PPINTGRf<4>: RETURN 

1190 LOC&TEX,Y:PPINT- "tlf SCREEIKX+l, V) 

'-127 THEN X»;<*ltPLftV-DO" 

1110 C0L0P6 

I 129 LOCATEX,Y,OtPftIIITGR*i I ■: RETURN 

1280 LOCAT£X,V:PRINT- -:IF SCREEN' ■ -. 

<>127 THEN Y-Y-tiPLfl 

1219 COL0P6 

1228 L0CATEX,Y r 8fPRINTGRsa)f RETURN 

1309 LOCATE*. SPRINT- -::r SCREEI 
;>I27 THEN Y»Y+I»PLAY"DO" 

1310 CQL0P6 

1328 L0CATEX,Y,9»PRIHTGR»( 1 :PETUPN 
1390 LOCaTE?. '.'SPRINT' ":IF SCPEEN' -*- 
OUT THEN X-X-IiPLAY*DO* 

1319 C0L0P6 

1320 L0CftTE/-V.9:PP:MTCP*i 3 :PETUPK 
1688 LOCATEX,y:PRI«t- ■ : IF SCREEN - 
•>127 THEN X"X+tSPLfl 

iaie :olor6 

1620 LOCATEX, .',9i PPINTCP*. 2 .. iPETtJPN 

1700 LOCATE/:. .:ppixt- "■-■.' JCREEX 

:>127 THEN r*Y-liFl - 

1710 ;olOR6 

1729 L0CffTEX,Y,0«PRIRTCR«<2>»RI 

1888 LOCATE/. YJPRIMT- -:IF ICPEEii 

IJ127 then Y-Y-isPLAVfrO* 

IS10 C0L0R6 

1320 lOCmTE/, Y,8: PP I NTC-P».2->I RETURN 

1909 ' 

1910 * SOUS PR0GPAHHE1 FAHT0HE8 
1920 ' 

2889 LOCATEA/BePRINT" " ■■ IF SCREEN<A-I/EO 

'/127 THEN d»fl-i EL'iE J«I 

2018 IF SCPEEN'-, B-l >' - 127 crND 1NT'PHD«£ 

>-9 THEN H-3 

2828 IF SCPEEN- ►.. B-l K»I27 ANO IN 

1 = THElN H»4 

2830 COLOP 3 

2049 LOCATE*, B:PPIKT"0":PETUPN 

2189 LOC«T£fi,B:PPINT- -:IF BCREEH<A+I,8) 

'>I27 THEN *•«♦! ELSE J«i 

2118 IF 8CREEJI<A,B-1)< 12" -N^ :kT'PNI..«2 

..-9 THEN H-3 

2129 IP SCPEEN--, 5-: ■ .J2? -Nt INT'PNI;42 
,-0 THEN H-4 

2130 COLOP 3 

2146 LOCATE*, B:PPIHT-0":PETURN 

2208 LOCATES, BiPPINT' -:;r BC*EEN<A, B-I) 

/127 THEN B-e-I ELSE J*l 
2218 IF SCPEEN'ft-1,6.- 127 -NO [Ht'PNE<#2 
i«B THEN H-2 

2228 IF SCPEENK*-I.e- 12" *NP IMT<RMD82 
>-6 THEN H-l 
2238 COLOR 3 

2249 LOCATE*, B: PPINT "0" : PETUPN 
2380 LOCATES, B:PP1NT- *:IF SCPEEN' A,8*I ) 
OI27 THEH B-B*l EL5E J-l 

2310 IF SCREEN(A*I,8K/127 -Nt> INT<PNE,«2 
>-8 THEN H-2 

2329 IF SCREEN<A-!.B>'/ 127 AND INI'PNH2 
J-0 THEN H-l 

2338 COLOR 3 

2340 LOCATES, 6:PRINT"0-: 

2388 LOCATECDiPRINT- ■! 

'.> 127 THEN C-C-l 

2318 IF SCREEN<C,D~1 )<>127 AMD IHr<PND«2 

)-9 THEN J-3 

2328 IF SCREEN'C.DM." -127 AND INKRNDte 

)-8 THEH J-4 

2330 COLOR 3 

2340 LOCATECDiPPlNT-O'iPETUPN 

2680 L0C«TEC,D:PP1NT- -:IF SCREEN* C* I , D) 

<>127 THEN C-C*l 

2610 IF Bat£EH<CrO-I)OI27 AND INTfRN042 

)-8 THEH J-3 

2620 IF SCREEN'C.D-1'- /127 AN& INKPNDI2 

>-8 THEN J-4 

2638 COLOR 3 

2640 LOCATEC&lPPINT-O-iRETUPH 

2790 LOCATECDiPRINT - 1 IF SCPEEHt C, D-l ) 

0127 THEH D-D-l 



2718 IF SCREEN'C + l,t<> 

>"0 THEN J- 2 

2729 IF SCREEN'C-l.t" -127 AND INT'PN0I2 

'-0 THEN J- I 

2738 COLOR 3 

2748 LOCSTEC.DtPRINT-0-tPETUPN 

2898 LOCATECDiPRINT- - : W SCREEN'CD+1) 

i -127 THEN D-D-M ELSE J=l 

2818 IF SCREEN(C»1,0>0127 AND 1NT.PND42 

■-0 THEN J-2 

2820 IF SCREEN<C-1,DK>127 AND INT(RND»2 

*"0 THEN J-l 

2839 COLOR 3 

2840 LOCATECDiPPINT-0-.-PETURN 
3698 IF F 



3388 • 




3510 -UNE VIE DE PERDUE 




3320 • 




5888 A**-L5D0PEMirASOLASI 




5985 e*-"SlLASOFAMIPEC>0" 




5018 FQPT-1T03 




5628 PLAY-L4-*"02'-Al- •■:■-■ 




--03-*8**'02-*B**"L204- 




5859 NEXTT 




5068 B0U*B0U*I 




5079 LOCATE 11.3:Pp:nT-P£ 


TE FANTOMES 



3080 LOCATES, B:PPIN7- "!LOCATEC,D!PRINT" 

3890 C0L0R6!L0CAT£>:.r:PPINTGP*(li:C0L0R3 
5188 B»INT<RNM14+7>>A"INT(RN0«28+6>(IF 

SCSEENfA.BX) 127 THEN 5119 ELSE GOTQSI0 



5500 IF BOU'SS THEN PETUPN 
3585 CLS 

5519 ATTRBl,liL0CATE3.12:PRINT n V0TR£ SCO 
PE EST:- 

5520 L0CATEJ6, I3:PRINT1000-5CORE 
i09O F0RT-lT02898tNEXTTtATTR88 r 8:RUN 
10000 DATA 6, 15.3. 17,2:, S. 23, 32. 8 
10816 DATA 6.18.18.12,26,18,23,32.10 
16826 DATA 6,15,12,17,21,12,23,32,12 
19836 DATA 6.18.14,12,17,14.21,26.14,28. 
32. 14.19.19,14 

10848 DATA 6.15.16,17.21,16.23,32.16 
10058 DATA 6,18,13,12,26,18.23.32.18 
16868 t>"TS 6, 15.28, 17,21, 29, 23, 32,28 
10070 DATA 6.19,22,12,26.22,23,32.22 
10100 DATA 3, 18, 6, 12.14, £.16, 18. 6. 20. 22, 

18118 DATA 10,12,8,14,16,8,18,20,8 

19129 DATA 3,19,18,12.14,19.16.13,10.28. 

22, 16 

18138 DSTA3,22,12 

18148 DATS 3,10,15. 12,14, 15,16,18, 15.28, 

22,15 

18150 DATS 3.22,17.3.22.21.13.15,19 

19169 DATA 3.19.23.12.14,23,16,18,23,28. 

22,23 

19179 DATA8.22,26 

19139 DATA 3.19.23.12,14,23,16,18,23,29, 

22,23 

19190 DATA 19, 12,39,14, Ib. 30. 13.28-39 

10208 DATA 3,18.32. 12.14,32. 16. :3, 32. 28. 

22,32 

15889 '•• •..«.. M 

15818 ' 

15829 'PECLE3 DU JEUiDANS ChaOUE JEU.vOU 
S ETES LE Pachan ET VOUS DEVEZ "angEP 
13938 'LES FANTOMES EN UN HINIPIUH DE 

TEMPS 
15859 ' 

15069 '♦•«••»••«•«••« •••••*»••«* 

20000 SCREEN6,8,0!CLS:LOChTE0. 8.6: -"'-&: 

28818 B0X(8,e>-(319,l9?J, tt60Xce,£ - 317 

,197),1 

20820 L0CATEH,l2«PRINT*TRACffAN" 

26830 FOPTi33T05 STEP-I : LOCATET. 1 2 : PP I NT 

C,P*'1.':LOCATET,12:PPINTGP*''3':PLAY-L10DO 

"!L0CSTET,12:PPINT" -tNEKTT 

20848 ATTPB9. MLOCATEia, 12:PRINT"fH= FRA 

NCOIS LOSFELD- 

29843 F0RT"IT018eeiHE: TT 

29056 ATTPB1, ]:F0PT=35T05 STEP- I ! LOCATET 

,12«PRINTGM<I)(L0CATET, IZiPRINTCRfOJIP 

LOY-L10DO': LOCATET. I2IPPINT- ": NEXTT 

28878 CLS:ATTPB8,0 

29199 LOCATES, 18: IHPUT'OUEL JEU: 1 2"J 

JEU 

20118 PRINTt INPUT-CHOISISSEC VOTRE FORCE 

( 1 . 18 >*!SS 
28115 AS-INKEYf 
£911? CLSi LOCATES, 1 £, 8: PP I NT"APPU ■ E= I UP 

• ACTION '-:MP-RNDMF STPIO'I>-0 THEN 2 
0117 

28129 IF JE'J -I THEN &OT017 
20280 B*INT(RND»t4*8)lfl-INT(RN&*! -■ 

9CREEN(A,BX>127 THEN 29218 ELSE GOTO20 

£9210 D=INTRND«!4.8/:C*INT- RN0»28*6 'Hi 
SCREEN'CDX/127 THEN 20239 ELSE COTO20 
218 

28230 LOCATES, 8, 6 

29399 H-l: J>i:C0L0Pe:LDCATEl?,28:PPINTGP 
|( 1 .:,*20iY-I7 
28490 COLORS 

20300 CLSiPPINT:PPIVT:PPJNT:PPiH-: I )RT»1 
TO760:IF INT(PND»3>-1 THEN PPINTCHRIM27 

•i ELSE PRINT- "! 

20318 NEXTT 

20520 FORT«0TO39iLOCATET,22lPRII*TCHRfi 12 

7,!L0CATET,4:PP1NTCHPJ! 127.: NEXTT 

£0530 F0PT-4TO2] : LOCSTE0, T i PRINTCHP* ■ 127 

nL0CATE39/TlPRHiTCHR*<I27>iNEXTT 
20333 COL0P6 
£8548 LOCATE 1 1 . 3, 0: PR INT -RE3TE FANTOMES 

>*J09-BOU 
£8530 L0CATE29.17,8lPRINTGRI'l/:PLAVL2- 
28688 ' 

20610 'PPOCP-nME PRINCIPAL.. . .2 
28628 ' 

20788 IF CHOI-8 THEN OH 8TICKCI) COSUB 1 
788.1798,1689, 1680.1390, 1380.1508. 1390 
28785 IF CHOI-0 THEN CHOI - 1 1 C0T028729 
£9719 IF CHOI-1 THEN ON BTICK(I) COSUB 1 
200,1208,1190.1180,1300,1309,1800, 1999 
20713 IF CHOI-1 THEN CHOI-0 
29720 IF X-C AHD Y«D THEN C0SU8 5009 
20730 IF X-A AND Y-6 THEN COSUB 5000 
20900 IF CHOI-1 THEN ON H COSUB 2000,210 
8,2290,2300 

20919 IF CHOI-9 THEN ONJ COSUB 2380,269 
0,2799,2898 

20828 IF X-C AND Y-£> THEN GOSUB 3989 
28838 IF X-A AMD Y-8 THEN COSUB 5000 
29848 SCORE-SCORE'! 

28859 LOCATE 13,8 :PPINT"PGINTS :";:PPIM 
TSCORE 
21808 C0T029689 ■ 



LOGIC STORE 

LA MICRO INFORMATIQUE 

FAMILIALE 



Du 3 au 7 avril en avant-premiere 
dans la micro informatique 
LOGIC STORE LANCE LES SOLDES 
sur des micros de qualite : 

[atari] 




rue de Lancry, 75010 PARIS. Tel.: (1) 206.72.28. Metro. J. Bonsergent. 



GESTION 
D'ECRAN 



Ce programme entitlement en langage machine, per- 
met de gerer, point par point, I'ecran LCD du SHARP 
PC1500 grace a un curseur clignotant. 
Cette gestion assure avec facilite de multiples configu- 
rations decran pouvant etre utilisees dans des pro- 
grammes de jeux. scientifiques ou autres. 

Franck LEFEVRE ' 
Mode d'emploi: 

1° ) Falre NEW&429C ¥ ) Faire: CLOADM "GESTION ECRAN" si 
vous dispose? de la cassette, ou: 
Rentrer le programme en ulilisanl I'uiilitaire suiwant; 
&a:"A"FOR I- &40C5TO 841AB 
20: READ A:POKE I. A 
30: NEXT I 
40: END 

100: DATA &0.&0.80.&BE.&EE.&71,&48.&40,&.„.etc... 
{voir la suite dans le listing du programme en langage machine). 
3" ) Ce programme peut etre utilise en mode RUN ou en mode PRO 
comme sous-programme. 
-Mode RUN: 
Faire CALL&40C8 

On remarque un point clignotant en bas a gauclie. pour le deplacer, 
il sulfil d'appuyer sur Tune des touches T , I >—•.*—. aftn d'oble- 
nir un deplacement vers le haul, vers le bas, vers la gauche, vers la 
droite. 

Pour imprimer ou supprimer un point sur I'ecran, il suflil de placer le 
point clignotant a I'endroit voulu et d'appuyer sur la louche S. 
Pour effacer I'ecran, il sutlil d'appuyer sur la louche C. 
Pour memonser Tecran, il suflit d'appuyer sur la louche M. 
Pour revenir au moniteur el arreter le programme, il sullil d'appuyer 
sur la louche R. 
Mode PRO: 
10:"A"CALLM0C8 
20: END 

DEF A 'en mode RUN) produira un effacemeni de I'ecran et le point 
cltgnolanl on bas a gauche apparaitra. (voir chapilre mode RUN). 
10:"A"CALL840CB 
20: END 

DEF A (en mode RUN) no produira pas un oUacement do I'ecran et 
fo point clignotant en bas a gauche apparaitra (voir chapilre mode 
RUN). 

Pour rappeler i'ecran memorise, faire: 
10:CALL&4190 
20: WAIT:PRINT:END 
ou encore 
10:CAU&4190 

20:GCURSOR A (A variable comprise enlre ct 155} 
30: GPRINT... 
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KIBUR 



Voici un petil casse-tate que jo soumels a voire saga- 
cite. 

L© principe du jeu est simple: avec une serie de dix 
lettres (de A a J) en desordre, et en utilisant les dix 
types de permutations possibles, il taut retablir I'ordre 
alphabetique. 
Bonne retlexion. et pensez au tube daspirine. 

Daniel MAITRE 
P.S.: Les dix permutations sont simples a decouvrifl C'est le premier 
niveau du casse-tete 
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Pkihi -i:-:-- ■■)■ ■"■■ ■■■ 



■■ 
;«0 MINT 

■ . 






:io 



ft|N? 



-"-! 



- - ■ ■ 



'ouc l c- :;h 



. ■ 
tea =• :•-■ ---■..■ - :■ . ,- dqus. 

■ 

I7« .-;;,.- *TfiI :; PR1HT -ooys av-:2 a 
. .: -■ )pom* ■ 

iirni 4 PRIHT -a y.j 
- 
- ; . - : -■:■?<■; HE ' : 
l»7 ■*£« 

:?-" *E>1 HOW. ■ E PROPO« L'ORDimTeut 
1»J "EM 

r«B 3 «Tfti ll PRlHt ---:!■£; u;t= 

::■; m-^e it p*:mt ■ ■ 



::■; --e ;■:- print 
.-:. K LETTt£' 

;..; .-; : -.- --..= 9 

- ne -- :• :■:•:■' 

is psimi ■ 

HERCMEB .'■■- 



SI WW. 



-«£• 



-•:■■» i El 
SI JE DOIS 




-0 IITH Zl HTM lj [HplJ 
-;•) if 'E ■ i r-En no 
?■) if re ■ : them roe 
M goto zoo 

rt.E i* INPUT UOTRE ■ 



110 



--■■ - .;oj 
Z*Z PEN 



J4e PE" ftlHSI WE SON EXECUTION 



RIMT 



439 FOR I - i TO 19 




419 Lf • MID* (CO*, I,t > 




429 VTflB ll MTftE 12 • P Pp 


HT L* 


439 P • P - > 




449 NEXT I 




459 UTttB 18 HT&E 14 PSINT 


QUE- "IE 


7R£- 




469 WTftS 29 kt-e 3 PRINT ■■ 


HflHSEZ 


5 DE PL6CE CSQH NUflERO" 




470 UT&B 22 Hf"E 19' INPUT 


? - . LH 


*->3 ON LH GQSUE 1999,1919.1* 


.9. 19 £9 


0- 1929. 1929. 1030, 19*9, 19T9 




499 IF CO* ! . •fiBCUEFCHIJ' 


THEM H 


• NT ♦ I ■ SOTO 319 




147 REM 




549 REH HEHU G£ FIM DE PROC 




549 PEN 





t-;o 


UfMl i -r-E 11 '■ INI 


■ ■ 


Cf 










■ ■!■;■. 




1499 


|EN 


. 


■ 


1 




579 


UTttl ( •■'■;■.• ""J-' ' 


1999 


P£H 










•0«OR£ E'i ■ -it . 




1919 




. ' 








ho 


UTA1 ? MTBl S P* ■' - 




ton 


tt • 


• 








UHC 


a |TF| PART It' 




1012 


Cl • 


- 1 : i :o ■ - J ■ i i 








599 


i<T»£ 11 HT-I 7 PRIHi 


■ 




Pi t - 


I t 7 








CREU5E* LA r-: ; '- 




If 14 


: i ■ 


C» - l» • -» • f 1 ' r --' •*■ 






■J99 


m„E 1 • HT*I 1 1 INVERSE 




1917 


----- 










print -oui- norhal 




1918 
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3 




«16 


yr»B 14 mt-i i ? p« IHI 




1919 


«N 










624 


uTBB 14 HT^E 24 [HI/ERSE 




1024 


-l ■ 


- - - ■ < H.I 








PRINT *HQH* NQOn&L 
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UTftB IS hT&B 17 infijt - 
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-;*■) 


IP R£l - "OUI." THEM 299 




1023 


D* « 


mi i i 
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LE SONNEUR DE PAQUES 



Ce jeu necessite un manche a balai dans !e port 1. 
Depfacez voire sonneur de cloches a gauche, a droite 
et cassez les oeufs en tombant du ciei avec voire mar- 
teau (et le bouton de tir). Pour casser I'oeuf, 3 coups 
de marteau sont necessaires. Ainsi la cloche liberee 
prendra son envoi. 

Vous avez 10 niveaux de jeu, de a 9. A partir du 
niveau 1 , votre rapidite et votre dexterite a casser des 
oeufs pourra vous rapporter des bonus. Mais attention, 
plus votre niveau augmente. plus votre sonneur fatigue 
et sa vitesse de deplacement diminue, alors que le pla- 
fond descend. 

Alors, avant d'atteindre les 5000 points du niveau 9, je 
vous souhaite de joyeuses Paques. 
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REDEFINER SPE cTRUM 



Vous avez toujours rdv6 en tapant A d'avotr X? Vous 
voudriez des caractdres graphiques directs sur voire 
clavier 7 

Rien de plus simple desormais avec cet utilitaire de re- 
definition de clavier. 
Bonne redefinition 

M. SEBAN 

Mode d'empkw: 

Le programme presente un menu £ 9 choix: 

1) Redeftnrtion dun caractere <Je ciavier: 

Apres avoir introduit votre caractere (sont intetdrts: les mots-des 
AND. OR. NOT. STEP, etc.. les semi -graphiques el les U-D-G). 
vous donnez tes codes dectmaux ou binaires ne depassanl pas 255 
(ex: 255 ou BIN 11111111). Les codes 888 et 999 servent respecti- 
vement lun a con-iger el. I'autre a sauter des frames deja faites 
(pour eviter de recommencer a chaque fo«s). 

2) Copte de caractere: »ci. la routine principale esi effectuee par la 
machine mais necessite voire intervention pour le caractere "mo- 
dele" et le caractere "copte". 

Ex: lettre modele: A, symbote copte:%. Apres execution, on aura: 
modeie: A, copie: A 

3) Echange de caractere: pour les fanas de daviers AZERTY, cette 
routine est une benediction, car comme son litre I'indique. elle sert a 
echanger deux caracteres. cest a dire, que Ton prend la place de 



I autre el vice versa Ainsi. lorsque vous laites: A echanger avec Q 
et Z a echanger avec W. vous obtenez un clavier AZERTY. Mais 
attention, les mots cles sen trouvent modifies et vous pouvez vous 
retrouver avec un CAKE au lieu de POKE Ou bien encore avec 
CORNER au lieu de BORDER. Vous pouvez toujours rechercher les 
ditferentes possibilites en echangeant des lettres. 

4) Reinitialisation complete du clavier: cette "remise a neuf" de lous 
ces caracteres (saul UDG') vous fait perdre toutes vos redefinitions. 
C est pourquoi il y a demande d accord apres quoi il execute ou non 
cette lac he. 

5) Sauvegarde de clavier redefini: ced vous permel de garder une 
trace de votre travail el de permettre. si besom est, de prendre ('op- 
tion 4 pour en retaire un autre. 

6) Chargement de clavier: pour pouvoir "recuperet un clavier que 
vous avez sauve auparavant, il vous suftit de placer la bande juste 
devant le clavier concerne. d'inlroduire son nom ou juste ENTER si 
vous ne vous en souvenez plus. 

Si vous Irouvez qu'il est inutile de charger REDEFINER pour cette 
option, il vous est tout a fait possible de le faire directement en 
tapant LOAD nom du clavier CODE puis: 

- POKE 23 606.96: POKE 23 607. 233 pour un spectum 48Ko 

- POKE 23 606. 56: POKE 23 607, 124 pour un spectrum 16Ko . 

7) Redefinition d'UDG: cette option accede aux 21 graphiques utili- 
sateur redefinissables: les UDG. Le principe de redefinition est tout 
a fait celui de I'option 1). 

Lorsque vous en avez assez de redefinir, le Spectrum vous propose 
une sauvegarde et un chargement puis retourne au menu general. 



8) Renversemeni de caracteres ce sous-programme conbert 3 or> 
hons: 

1 -Renversemeni complet: votre caractere se retrouve (a tete en pas 

2-Rotation a gauche: le caractere subrt une rotahon de 90* vers la 

gauche 

3-Rotation a droite. le caradere subrt la rotation opposee a ropbon 

2 et 3 sont des boucles reiatrvement tongues c est pourquoi ,e vous 
demanderai de ne pas vous inquieter 

9) Decodage de caractere: surtout Ires utile pour les UDG. cette 
rubfique vous restrtue les codes coostrtuant le caractere. Ceite rou- 
tine peut semployer avec ou sans impnmanle et peul vous setw si 
vous desirez mettre en DATA vos codes de caracteres dans un ieu 
NOTE: si vous desirez executer REDEFINER avec votre davier. 
vous n'avez qua : 

1) Editer fa ligne 4280 POKE 23 606: POKE 23 607 60 

2) Mettre une REM: 4 280 REM POKE 23606,0: POKE 23 607 60 

3) Enfm, appuyez sur ENTER puis GOTO 100 si vous avez deia (ait 
RUN. 

Spectrum 16Ko: 

Le programme normal prend 20Ko environ et 776 octets de reserva- 
tion pour le clavier mais il serait possible de la faire rentrer dans 
16Ko: 

1) En negiigeant toutes les REM d explication ou autre (en cas de 
problemes il est toujours possible de consulter le listing d'origine) 

2) En negiigeant les lignes 5010 a 5770 de presentation des rubri- 
ques, en laissant toutefois 5770 CLS: RETURN. 

3) En mettant la variabte ad = 31 800. cest a dire: 
70 LET ad = 31 800 

II ne me reste plus qua esperer que ce logiciel soil de quelques 
utililes a qui s'en servira. 
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4.iiS5 13 PEM 

40O0 REM 

4070 REM 

4.060 PEM 

-tO-'O PEM 

*IO0 REM 

4110 LET 

4130 



SOUS-PBOORflMME DC 
TE5T5 DE CRRPCTERES 



J.-1-' LCT 



- IF C*--CHR* 143 P.ND 

1SS THEM LET ad 1 sUSP c \ 
A ISO IF tOCHRJ 1.13 fit ID 
1C5 THEM LET jd2=U5R t- * 
CHR» 31 PNO 



CKCHR1 
bl CHR$ 




2550 FOR 

BEEP . 05 

2560 GO 

3800 REM 

i80 1 REM 

3002 PEM 

3003 PEM 
300.1 PEM 
3 005 PEM 
iOOi PEM 

«08 

3020 INPI 'i i' 

"K r •*" ; LINE 

3035 T= LEM n 
O GO TO 3020 

3030 LORD r.*C 

3040 PRINT Nvl 

3030 TOP * "0 



GO i.'JL. ' 



a< ..■ 


a o T 












































;-,o- 


REM 

PCM 





5010 PRINT 
FIMEP" 
SOS0 PPIMT 



:■ ■ ■: ■ 

PRIN1 



504. o perruPN 



i P« d* 

rap 



i -. i- y ( C MR • 



51O0PCM •••• .... 

sxca <■■■■■ 

510: rem tneoer injtjon de 



. . . ,,,,,,- 






■ • i 

REM 

REM 0OVCL.I 

: ■ 

I . ii.ijt "Or. i 



-.^. ,;.i i.'inr i i- 1 

36 - "0 PPIMT PT 1 
TAB 16 : '■' ir ' 
354 NEXT r 
3650 PRIMT OO, ' 



.,.,,■11. . 

i inn ION 



Z-12C PRXrfl :■■■!..' 

« Meciu< un< r»nit»on cola 

f . .... .... ., .., i. .. . , , ■ i ■ ■ • J* uo l { 

',,'.' ,i -.' -V/.,... ■ .- 4»P*C« ' H 

inl ictitiibU 

5130 PPIMT ■•■'. M ,-....'..• ■ 

i '. I *3 CO 

n ju lit." ','.'■ 



1141'' UWIIH II 
| | IT F C>" 

S15« ' I* tNI*« 



• r.w« ". J. 

r-. nppuy< 

hpn no t ^ 515 



Bii 

'j«dk.> PUM .---• 

R| M I 

i ■ 1 t PC ' ' 

... 
■ LASH 1 
, PflPC '■ RtCoplI J 



■ CN, 



. | ■ . ■ 

. . . « d* ■-• 

Ctricttrt d*n» un 



3230 PRINT MCI. "Arrpuvex » u , eNTCM 

5250 ir INKCY*="" THEN OO TO 536 

5270 CL5 : RETURN 

5300 REM •«.••....,.*»...«».*», 

5301 PEM * 

5307 REM *••••*•*••**».,».,..,.; 

T30? RFM F-K-.r.T'-- r M pj 

S310 PRIMT TRB S; FLPSM 1; INK 7 

, PhPER 2; "EChaftOttS d€ csricurt 



5330 PRINT 

r i r a d'm'.r 
es a la dcu 



POUVO 



de La *ich i ne 

SJiaiS PPINT uo, Pht-CR i, XHr\ O, "4 

PPUVt? Sur ENTER" 

5350 IF IMKEY* = -'" TMEN GO TO 33S 



53CO CLS RETURN 






REINIT CL«UICR 



54 07 REM *••**•■**.•*»•••«•••«.*■ 

5410>PPTMT TRB 3, FLRSH 1; INK O 
, PRPER 3, ,- ReinitiallS3ti0n du c 
G4£0 PRINT " ■ "■ Cet'.e branch* » 



5430 PPINT 



•^J.40 PRINT 

ppre 

5450 



vo t r« co 
ink 6; -n 



PRINT (tp, PfiREi 
ppu-js: mr ENTER" 
SJ.60 IF Xllr.ZV % = "■■ TMEM GO TO 34,6 



SPUUEGRRDE CLP'JICR 



^^05 PEM » • 

5307 REM »*»<> 1* •***••••••» 

SSIO PRIMT TRD 5, FLR5M 1, INK 3 
1 PRPER 4, p, &»uwt9»rdt du <livi«r 



"CONSERUER 



l« f 
uv«9*r 



RINT 

de " p r 
ne 'P 

me un proflrasiDie . " 

5540 PRINT MO, PRPER 7, INK Oi ,- R 

FPuyei sur CNTe«" 

55?8 IF IWEY»» ' TMEN «0 TO 3BS 

5560 CL-r. RETUPN 

5600 REM .«■..«...••■».. 

5601 PEM . • 

seo; rem . CHRROCMEMT clpuieR • 

■J.iD'J fcfll - • 

3607 REM •***••#••»•*•••**•••«*• 

8610 PRINT 1MB 1. FLR3M 1, PRPEP 



■ itatnt d « 



se30 ppimt ■*" Ti "fi< iurnt * 

' ■■ ■ r ■■ jj Mirff "P * r« unin d« 

vint u i • . ■ - ■ . - . ■•ehoiti .d ' tf>»« 

;,._.:.. c ( ■_ C I "" "OU iUSI» E 
-. < .J< l< ihirjif," 
-.6*0 PRiNl u»' . pm-LP O. INK a. '« 

5660 IF tNKEY-Sa"" TMEN GO TO 566 



5670 CL ■'■- OFT URN 

57O0 P. CM 

8701 REM 

RCII 1 I 

■ .1 rem • 

'■'■'■' 

■ ■ eg int "if > 

: ■■■■■. 



■ 



.'■- 1 



1 «<-•»» du 



. 1 . 



1 . ■ 



■ " ' 



■■■■''■' ; ■■ ■ '■ 

j.. .1 . Ul ..'.-■■ ■!■■ 

1. " 1 I P*»l ■--■■- 

P^W«« »«ww« 

-...,.„. ou 



ro.67e 



Su/iepaffe J2 



OPERATION DRAGON 



yous devez obtenir un nombre de points superieur a 

ce<ui defini par I'ordinateur, de maniere aleatotre et 

compris entre 5000 et 8999 

Pour marquer des points il vous faudra: 

Accomplir une mission composee de 2 epreuves: 

Epreuve 1 reussie: vous passez a lepreuve 2 

Epreuve 1 echec: gain de 500 points et fin du jeu. 

Epreuve 2 echec: gain de 10OO points et fin du jeu 

Epreuve 2 reussie: 8000 points et fin du jeu. 

Vous remarquez que si ie nombre de points fixe par 

I'ordinateur est de 8500. la reussite de la mission ne 

suffit pas pour gagner {elle n'a rapporte que 8000 

points). Mais vous pouvez collecter des points en: 

Coulant un maximum de navires ennemis (500 points 

par navire) 

Envahissant des iles (2000 points par ile conquise). 



J.LVILLAIN 



^l~ suite du 



940 



U3>lT*U?3*RND('l )J»1 
|FlO-tS60I0!838 

FORTI*lT03.''OKE4465.w9-PO*E"S6..J3 
PfclHl i - JRr*>!TOZ90-NEXTN 
P0KE1465, ^9-P;X£4466.-9 
PRINT SPtCLEMKl) 
FORN-1 TQ280 -"*£X7n -nE>7J1 ;N£xT I 

- .-: -UOS ORORES' 
GOTOM 
GOT Ot 732 

; "m»«!' -napger l£ tube.. 



;-.T-uOS ORORES' 607038 
'842 "?:>• o -?:•-- irtCRSIOM -ER1SCQPI0 

i : • ■ - 

'943 PRIN7'UOS QRDRE&- -G07038 

'844 PR1NT'B-.°RIN7-ORORE 10107 ; *UOJN Nft 

OIR£ S1GNALE 

;:s"'uOS ORORES' ;G0703B 
c30TOi266 
■ :■: IFBI-IGOTOI2M 

.---( IB*RT«0£1 ))*! 
1755 IFU676GOT01266 
1258 IFU6*3G0T0I2&4 
'257 IFW6-4G0T01262 
1258 IFU6-SGOT01733 
'268 FKl = iT07^nUSIC'P«:B- -MEXTI 

1261 8I-3--PR1NTUOS ORORES- :GOT038 

1262 F0RI'?T07 = rr l JSIC'C9AR-;N£XTI 

1263 3i=3:PRINTUOS ORORES' ;GOTO30 

1264 FORI = !T07-rtJSIC-EGeR-.-N£XTI 
i?6S Sl»! :PRlNTW0S ORORES" :GOT038 

1266 FOR!-lT07:nuslC'CDR":NexTI 

1267 ai-3;PRINTU0S ORORES" :GOI038 

198 p£-i 

1399 IFPF>SGOT014fie 

1400 IFBI-lGOIOKSB 
i*«! IF8l*3GOTai406 

- S F^8G0T0 1 406 
1483 U3»lNTCS0*RNB( I JJ'I 
1404 IFl/3<8G0T01458 
I486 PRINT'S" 

1497 PRINT i 234S67B9" 
'486 PRINT" EFC3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3F8- 
1483 PRINT C5 90Bt 9398848389 C7" 

1418 PRINT2C5 8493858989 C7" 
1411 PRINT C5 C7- 

.-■■ '3C3 C7" 

1413 PRINT £^3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3FB- 

1414 PRIKI*4C3 8A85 83C7" 

1415 PHtHI' C5 858F 8985 BASS C7" 

i4ia pbintscs C?" 

-:-.:- CS 8A85 C7- 

1 4 l B PR!HT'6£CC*C4C4C4C4C4C4C4C4C«C4C4C* 
C4C40W 

1419 Bt-«iB2-l 

1428 PRInT'VOS ORORES' -&OT038 
1458 U4«INTrB*RN0<1 JJ-I 

145! ifu4=>iGC70i5ee 
iM-^ooTOisie 

3O0T0I531 

:-"-4=4G0TaiS46 

1455 IFW5GOT0156I 

•456 JFH4-6G0T0I576 

■ --,070153! 

'4S3 :FW4-BGOIOI686 

'468 PRINT -fl'.PRlNTORORE STUPIOE.UOUS N 

-:--T'lnnERSIQN PERISCDPIQUE.REuOYE 

■ 

'462 PRINTORQR£ 
'463 007038 
1538 P»!NT B' 

"5Bt PRINT' ' 23456799' 
1582 PSJKT-lffC3CX3C3C3C3C3C3CW 
C3C3F8' 

■■503 PRIHT CS - • C?- 

C?" 
C5 < CI 0-C2ES C?" 

1586 P8INT*3CS 76CeC9C9CaC8C9?5 C7~ 

1587 PRINT" EFC3C3C3C3C3C3 

a 

1588 PR1NT4C5 C7* 

15B9 PRINT CS C7- 

1518 PRINT5C5 C7- 

151 1 PRINT' CS C7" 

1512 PRINT "6ECC4C4C4C4C4C4C4C4C4C4C4C4C4 
C4C4DA' 

1514 BA-0iC5'63.Bl=1 

1515 PRINTUOS ORORES' &07038 
1310 PRlNT'B- 




listing du 
N35 



WIZ80 



'517 PRINT-' 1 23456783' 

>51B PRINT 'FFC3C3t:3C3<:3C3t3C3C3C3C3C3C3 

C3C3F8' 

1519 PRINT" CS - ■» C7- 

1528 PRINT"2CS C7" 

1521 PRINT" CS Fl C?" 

1522 PRINT"3C5F£C2C2C8C2C2C9 C?" 
'523 PRINT" EFC3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3FB* 

'524 PRlNTlCS C7* 

1525 PRINT- C5 C7~ 

1526 PRINT-5C5 C7" 

1527 PRINT" C5 C7" 

1528 PRINT"6£CC4C4C«.C«C4C4C4C1C4C4C4C4C4 
C4C40A" 

1523 9fl=8:C5=83;B1=l 

1S38 PR1NT"U0S QRDRES- ;GOT038 

1531 PRIN7-B' 

1532 PRINT- 1 2 3 4 5 6 7 9 3" 

1533 PRIN7-1EFC3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3F8- 

1534 PRINT' CS * ■> C7" 

1535 PRIN7"2C5 C?" 

1538 PRIN7" C5E6C2 Fl C2E6-C4 C7" 

1537 PRIN7' , 3C5FEC8C9C3C2C2C8CBC9 C? 

1538 PRINT' EFC3C8D80808D908CBC3C3C3C3C3 
C3C3Fe' 

1539 PRIN7-4CS C8 C7" 

1548 PRINT C5 C7" 

1541 PRIN7-SC5 C7* 

1542 PRINT' C5 C7" 

1543 PRINT'6ECC4C4:4C4C4C4C4C4C4C4C4C4C4 
C4C40ft" 

1544 0rt-9;CS»84;B1-1 

1545 PRINTUOS 0RDRES'-G0TO3B 

1546 PRINT-0* 

1547 PRIN7- 1 23156789" 

1 546 PRIN7-1EFC3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3F8" 

1549 PRINT" C5 C7 ' 

1558 PRINT-2C5 * * C7* 

1551 PRINT C5 C7" 

1552 PRINT-3C5 t C?' 

1553 PRINT* C5 E6C2E4C8-C2CBC7.' r !tl2E6C 
7- 

1554 PRINT-4C5 FEC8C8C8C8C8CBCeC8C8C8C 
9C7- 

1555 PRINT- EFC3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3F8 " 

1556 PRINT-5C5 C7" 

1557 PRINT" C5 C7' 

1S5B PRJNT-6ECC4C4C1C1C4C4C4C4C4C4C4C4C4 
C4C40N- 

1559 Bft-liC5-l4-81-l 

"568 PRIN7-U05 ORORES' -607038 

1561 PRINT'B- 

'562 PRINT' '23156789' 

'563 PRINT- if FC3C3C3C3C3C3C3C3C3C3C3C3C3 

C3C3F0' 

1564 PRINT" C5B38782eB C7" 

1565 PRINT-2C594838889 C? - 
'S66 PRINT' C5 ■» C7" 

1567 PRINT-3C5 CBCS C7" 

1568 PRINT C5.038O83 -F1FI- C2E8 C7 ' 

1569 PR1WT-4C5FCCCCCCCCCCCCCCCCCCCCCCCC9 
C7' 

i5JB print EFC3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3F8- 

'571 PR1NT5C5 C7' 

• INT ■ C5 C?- 

'573 PRJNT*6ECC4C1C4C1C1C4C4C4C1C1 

■ 
'574 9ii*e.rs*3* .si ■ 

■ - - borose 

- ■;•■:-(■■ 

. - I 

'578 PRjNTitFC3C3C3CX3C3C3C3CJ. '■ 

■ ' 

<nes r7 

^^S9 8387B7826B C7~ 

'581 PRI**! C5 B4B984B485 C7 - 

C?' 
CS 91 Fl .C4 C7' 

158* PR;--- tC2C8C2C98A859A 

94 C7- 

C3C3C3C3C3 C3F0" 

I S8fl PRINT 'SC5SS8S 8380 858«04 C7' 

158? PHIN1 C7' 

■',:4C4C4C4 

.. . 
"589 BA-a.CS-M-Bl-! 
'538 PRINI'ijOS ORORES 1 -&0 T 039 



1591 PRINT'i- 

1592 PRINT' 1 2345678 9' 

1593 PRlNT-lfFCX3C3CX3C3C3C3C3C3C3C3C3 
C3C3FB' 

1394 PRINT- CS C?- 

1595 PR1NT-2C5 ■» 1 C7* 

1596 PRINT' C5 C7* 

1597 PRINT-3CS 70E7 C7* 

1398 PRINT" CS 0IE7 C7' 

1399 PRINT-4C5 FIE7 C?" 
16*0 PSINT" C5t0FlFia8.C2CBC8C2E« C2t8 
C7- 

1691 PR1NTSCSFEC8C8C8CBC8C8C8CBC8C8C9 

C7" 
1602 PRINT' EFC3C3C3C3C3C3C3C3C3C3C3C3C3 

C3C3F8- 

1683 PR1NT6ECC4C4C4C4C4C4C4C4C4C4C4C4C4 

C4C4W 

18*1 BN-I :C5-35;BI-1 

1685 PR1NT-W0S ORDRES":(iOT03e 

1606 PRINT'P* 

1687 PRINT" 1234S678 9' 

1688 PRINT-IFFC3C3C3C3C3C3C3C3C3C3C3C3C3 
C3C3F8- 

16*9 PRINT C5 C7- 

1610 PRINT-2CS C?" 

1611 PRINT' C5 C7- 

1612 PRINT-3CS ' * * » C7" 

1613 PRINT C5 C7~ 

1615 PRINT" CS E6C2 81F6F6F 1F1C7" 

1616 PRINT-5C5 FEC8C8C8C8CeCeC9C7- 
161? PRINT- EFC3C3C3C3C3C3C3C3C3C-3C3C3C3 
C3C3F8- 

1618 PRINT-6ECC4C4C4C4C4C4C4C4C4C4C4C4C4 

C40408" 

1619 Bn=B:C5=15:81=1 

1628 PRInT'UOS ORORES" ;&OT038 

1788 FORI^ITO30:T£riPO7:nuSIC-C3C-;NE>lTI 

1701 FO-INTC39*RNOC11J»60 

1702 IFF0tPF60T01784 

1703 PRINT'UOS ORORES' -&0T03B 

1784 PRINTC'.PRINTUOUS u£n£? 0£ OOUS E 
CRftSER SUR t£* 

1785 PRINT'FONO - -FORI-1 TOI5B0 

:MEXTI 

1786 G0T028B8 
1788 GOT02899 

1713 PR|NT"B--PRINT'UOUS UENE2 OE UOUS E 
CHOU£R SUft* 

1714 PRINT'LE RIWflBE " :FOR!-l T01588 : 

NEXT I 

1715 G0T02888 

1719 U8>INT(1tRNOCI]l 

1719 IFUS-3G0T0I72S 

>728 PRINT'S' iPRINT'CONTflCT nWEC L'lLE 

E RflUlTfllLLEflENT' 

1721 FORI=lTOl5B0:N£*ri 1G0T0388B 

1722 Tl-10:n2*38:flC-20 

1723 PRINTUOS ORORES' 

1724 GOTO30 

1725 GOT 0296? 

1729 PRINT-B";PRIN7Tn8C I 8 ) ; 'flaHUIBIMMnE 
BUT DE Lfl MISSION" 

'729 FORI-!TO1000;NEXTI 

1731 GOT 02688 

1732 PRINT-0' :PRINTU0US NUE2 ET£ COULE 

...adieu conrwDflNT 

i?33 FORI-1TO1S00;NEXTI 

1734 GOT 02888 

1799 IFPF>88G0T012S4 

1888 PRINT-B-:PRINT"L£ RftOIO UIENT DE D£ 

CELER UN ECHO" 

'881 PRIN7"REUELW*7 Ufl PRESENCE DE TINES 

'882 PRIN7"PT7EN7ION rtUX OEFLflORflTIONS" 

'803 F0RI-lT028eB:NEXTI 

'984 Li="8fln..- 

>805 GOT0 1826 

1988 R-0:N-491S2:LIf1ITfl-l 

1981 REA0a:lF0O2S67nENP0K£fl*R.Q-P^R*1 ; G 
OT01981 

1982 USfiCA) 
1981 G0707 
1905 DftTA62,249 
19B6 DATflSB, 8,274 
1987 DflTA62,24 

1908 D«TA50,7,224 

1909 Di1Tn62,1 
'910 0flTfl5B,8,221 
'911 0flTA58,l ,224 
'912 DNTfl230,B 

1913 OflTMBO 

1914 0flTAS6,2,224 

1915 DMnl7 

1916 OftTA230,37 
'917 DflTft? 
'918 QflTft7 
'919 OflTN? 
'920 0HTN246.4 
'921 OrtTn5e,3,224 
•972 OflTn?9 

'923 0ATf»l68 
'924 OATN10.232 
'925 0ATH6S 
'926 DATn62,i 
'927 Dftlrt58, 1,221 
■92B DNTA24.224 
'929 0nTi1256 

1938 PRINT-B' 'PRINT flCtllDENT 818181 nUEC 
LE PERISCOPE" 

1931 PRINT-IL FAU1 PCHfieS f> LE PENlRER. . 

1932 FORI= (TOI5PP XI - I I 
'933 GOTO7800 

2898 K*-7!«.J5-(c«.(Ki))/l0 
2881 I6-INTf1888ltRNOt I I H3088 

2884 PRlNl '0 .i*R-l 

2885 PRlNl "RI'.;iOBI9) ."BILIW 0£S OPERrtT 
IONS" 

-:•.!, PRINT -PRINT-NrtWIRE ENNEOI COU 
.'■ 
208? PRINT .HRJ.NI -SWJIRE API COULEII! !" 
iNfl 
2089 PRINT ;PRINT"T£nPS OE Lrt MISSION I" 



28! I PRINT ilFTefCI-TSTNENPRINTUOUS tVJZl 



2012 IFCT6>CT-T5;»(60-l)TH£NPRiMT-WJUS N 
UE2 PEROU nNlS niSSIOH «CC0TP1.IE- 

2013 IF[I6>CT-T5)ICGO-0)TXHPRINT*WXiS N 
'-X.I PEROtr 

7015 INPUTUHE «JTR£ P«TIE(0~ l If JLI 

7016 IFLT-0GOTO70S0 
2017 EMC 

2050 P«INTB-:F0RI-1T07S 

2051 S£TI,0:SETI,49 

2052 NEXT I 

2853 FOR1-0TO43:SETB.I:S€T7S, I 

2*54 NEXT! 

7055 PRINI'B0»i*M0088e80000BB*"1FlFlF1FlF 

1F1F1FIF1F1FIF1F1F1FIFIFIFIFT 

2056 PR INT 'I 



OTERjftTION ORAGOH 



2059 PRlNT- OOOOOO B O B Or iFlFlFIFIFIFIFlFlF 
TF1F1F1FIFIF1F1F1FIFT 

2060 PR]NT-B80B00B'-PPUT'ER SUR PT.HT PO<*~ 




286! PRINI-B 



SRErtt i 



2862 PRINT-aTf«L£NU OES ORORES'TWEJ 71* 

2863 PRINT'00BOILLnIN J-L * 
2064 TEJTP07 

2865 nUSlC-C3CDEC4EDCC3C0EC4£OCCX0EC4E0 

c- 

2066 MUSIC-C3FFFC4EEE' 

2068 1FPR-1GOTO? 

2069 GOT05 

2588 IFIL*1&OTOI716 

2381 G0SU82558 

2502 IL-PGOTO30 

251 1 1FIP-IGOT017I8 

2512 GQSUB2S50 

2513 IP-l:&0T038 

2521 1FIS-1G0T01718 

2522 GOSU82558 

2523 IS-1JG0T03B 

2558 PRINT'S" :PRINT'OESIRER WOUS PRENDRE 

POSSESSION OE" 
2551 1NPUT'CE7TE ILEC0-D7-;! 

2553 1FI>IG0T02551 

2554 IFI-1GOT038 

2555 IFUV<3TM£f*PRINT-OES0LE,rVlIS PAS ASS 
EZ O'UNITES OE UALEUR* 

2556 IFIAK3G0T038 

2558 UU-lW-3 

2559 CT-CT»2880:PRJNT 

256* PRINT'CETTE ILE POURRA DORENAUANT S 

ERUIR 0£- 

2561 PRINT-POINT OE RAUITAILLEn&lT" 

2563 PRINI'WOS ORORES'. RETURN 

2578 PRINT'S' :PRINT'COneiEN DE POINTS OE 

SIRER UOUS" 

2571 INPUT-£CMANG£R?-;PT 

2572 IFCKBG0T02568 

2573 IFP7JCTG0T02588 

2574 lW-LWtCPT'10e0):CT-CT-PT 

2575 PRINT ^PRINT'ORORE EXECUTE-UOS ORORE 
S?" 

2576 G0T03B 

2580 PRINT :PRIN7-REW0''ER UOTRE CAORAN A 
LA RUBRIOUE- 

2581 PRINTPOINTSfMt WOS ORDRES- 

2582 G0T038 

2680 IF£P=1GOTO7700 

260 1 I FUU <8GOTO2800 

2682 G0TO3S88 

2658 PRINT"B".N»4-l-4-C*-"" 

2651 DlflTTNJ.Tcn 

2652 FORI-ITON 

2653 Ci-C«--CNRiCINT13tRN0(l )-6S)) 

2654 NEXT I 

2655 NC-I 

2656 PRINT"TENTAT1UE N' : ' JNC, : INPUT "SOLU 

HON •' ;X« 

2658 IFX*=C*TH£NPRINTTABC34);-3l*"" 

2659 1FX«"C*G0T0267B 

2660 FORl-lTON 

2661 T(I)-8 

2662 IFfllOKXI.I, 1 )-nlD*CC*, 1 , 1 JIHEN 

2664 IFniO*tX*, J, 1 J-flIO«Ctl*,I . 1 )T!-'ENTf I) 
■1 

2665 NEXT I 
266? F0RI-170N 

2668 F0RJ»17QN 

2669 IF(I-J)'£TCJJ-nG0T028?4 
2678 IFniDKX*, I. I l=nlD*rCt.j, i )'■■ 

2672 IFtlID«CX*.. I , ' " ■ I " * I 
-I 

2674 NEXT j 

2675 NEXT I 

2676 NC=nC-i ■■ [FNC-I2&0T02688 

7677 PRINT :&0TO2656 

7678 PRINT :PRINT:PRINT"REPAR£? UOUS POU 
P L'EPREUUE N' 2' ;uU=UU-7'EP-l 

2673 G0T0278B 

2680 PRIM -PRINT -HRjNl 'EPRFUOt ''- 

ECHEC :CT-C1*SBB 

268! F0RI-IT03BB8.NEXU GOTO2008 

7700 FORl-iTO4BB0iN£X7I -GOTO3550 

270! PRINT "0" 

7702 IFLKK8GOIO28B0 

2703 PRINT'UOICI LA OERNIERF <■'- 

2784 PRINT 'AIltNTION NOUS COfinENCONS. . . ' 

7705 PRINT -PRINT 

2719 T-B:*-3088. I'fl 

7770 X-INT(3B09*RNIK I ))*1 

2??1 l-I'l 

7777 PRINTT;"(X>- ;t, INPUT "UOTRE CHlFFRE 

2723 IFN-XG0T07723 

2724 IF(N<X)*CN>T)THENT.N 

2725 IF(XtN)*tN(')l"LN?-N 

2726 1FI-! 1GOTO2730 

2727 GOT 0272! 

2729 CI>CT'80BB:GG-I 'OOTO360B 

2730 PRINT ■ PRlNl "RlNT "EPREUUE rERTIINEE- 
FCHEC" 

2731 CT*CT*1B08 

2732 fORI-lIO1000;N£XTl 'OOTO2000 
2800 PR INT -B- 

7801 PRlNT'OeSOLE.nAIS IL UOUS MANQUE DE 
S UNITES- 

2802 PR INT "DC UALEUR TOUR PASSER LEO EPR 
EUUES* 

2883 PRINT 'WEPRtNt* LA t«ER EI OUTENEt Ut 
NOUUELLES" 

2889 pRiNi'UNiits oe ualeur- Suite page 19 



DONJON ET DRAGON 



Vous dtes en x -- 9, y - 9, vous devez ramasser le 
maximum de tresors et reventr a voire point de depart 
et sortir du donjon par la porte amenagee a cet etfet. 
Soyez pret a mener de aides combats au cours de ces 
aventures. 

Eric BERDAH 

Mode d'emptoi : 

Apres avoir rentre el sauve (initialisation sur cassette, rentrer la se- 
oonde partie du programme et sauvez la a la suite sous I'eliquelte 
*DAD(2)-, imperative pour le "CHAIN'. Urte lois ce tastk)teux travail 
termine et apres avoir vertfie le CALL de la ligne 695 (secoode par- 
be du programme) charge* rinrtialisation et lancez te programme par 
"OEF A". Le PC 1261 devant etre evkJemment connecte a son inter- 
face cassette (CE-125). 

N.B. Pour obtenir le Pave Noir, apparaissant sous forme de L dans 
le listing: Farre POKE 32768. 225. 76- On trouvera ators ce carac- 
tere en SHIFT A. 

Ce togtciel utjltsant les possibilites graphiques de lordinateur. 
comprend en (ait deux parties. L'une rentermant linitialisation. c'est 
a dire essenrjellement la creation dun donjon original ainsi que te 
mode d'emploi du jeu. I'autre enftn le programme lui-meme. 
II est necessaire d'insister sur le fait que ce togtciel "toume" sur un 
PC1251 du type PEEK(&7FFF) = 3 et que par consequent, il laudra 
adapter te CALL28680 a la ligne 695 pour une machine dttf&rente. 
c'est en fait, un CALL de "bruiT. Je deconseille cependant ['utilisa- 
tion de linstruchon BEEP. Aussi cherchez. prealabternent, un tel 
CALL dans les adresses 28000 ou. dar,s le cas contraire, suporimez 
le. Bon courage! 



• '•£« AUTEoH 

e»iC"3-:ow 

2t*in •••arjh.'O t 3«G 
OSS SEC0N1E oqflr;j„ 

3l*A-i GOTO **0* 

20:E« Vfti B0(X*Y)IG*(L) 

■*»*♦ ST«* E 
JJ:5« VAi. 5l<K.Y^!0i(2J 

■■«-♦ =»a* S 

*9lC- V*l OlO-YJiGUJi 

■•«•» s-s* 

HIM V4L »t(V..Y>t,Jt<4) 

.'«•. s*»l »■ 
60:2- Va,. l>«(V.Y>IGI«) 

70iG«<6)""''* 3-RI U 

ae:»a;T e: »«;st • 

•; st»j 

?9:A*65496: oOSUB GIC) 
:(.=4J533: OOS'JB GK2 
>!h=6J5:3j Q0S'J3 G»< 
3>:*=635J3: GCS'B 61 





:fi»6Je3S: GOSUB 


G»<6 


nei 


CALL 43 T 6 




:?0: 


30S-J3 


•KEYMW*- 


7 


l!0i 


IF M' 


■(.' OOSUft 


■01- 


140 
130 


IF 3S* 


"0* WS'JB 


■02* 

•or 






169 


IF QU 


•L' GOSUB 


•04' 


IT0 


Ir Of 


•R« nns'JB 


*os* 


11)0 


1' 01* 


'5' GOSLiB 


*0** 


tw 


IF DP 


•C* GG5UB 


•HT* 


200 


if y.*< 


fir.!) Y*!9 


THE" 


210 


•cO* call *3B'. 




220 


;f g« 


I OS B*8 THEM 




•jo* 






230 


fob : 


9 TO G:B< 


W< 




;x-x< 


)j«2*fY-Y 




240 


eosirs 


'TRIE*lP>OKG) 




.Y(5) 


»*" 




230 


F0? i-I to Rff5 


>xcr> 




)-XlG>r SON <X-*«G>> 




:V(5)«Y(G>* SCH 


(Y-Y 




<G>>: 


"Exr ::=* 


X<GJ 




238:.'F ?.,d j»j d?:s- **L 
VC--S ^hmO'.E ...'i 

OQ-o •-■:■ 
2m>pri«c *n vous 6 rou 

ieeiv»v-v'.G>-<ja* sua 2e 



?w 



«:=< 



I27tl27t 



t:*il' POKE ( 

127. 127. I2': 9ETUR-. 
S:*",2* WE fl, 33. 42,83 

.42.831 KTtfflH 
n*f*3' po«:e a. 127,85,7 

3.83.127: s£T(j»N 
[I'M* P0<E fi.127,73.6 

5,65.127: S£TU?t* 
|1*HS" =0KE »■ 6*. 32,39 

.96,6*: RErjRH 
i;**!6* P0<= fi.6<>64,64 



440i 'il* bo<e a.0.32.:;6 

•32.9: »•-,*- 
4*5:"2* POKE 9.9.8.127. 

«2.23i lETUW 
459:'-3' P0/E A, 40,113,; 

24.ii2.32: IgTWN 
455:' 4" POKE S.36.90.:; 

3.99.36: 9"uS- 
460r *t 3* ao'E 4.3e.77.;; 

.77.59: aenaw 

463:'i6* PG'.E a.32. U6.1 

26.::6,32: t£TV4M 
479: ">0* POKE -.0,9,8.9. 

a: ?EToa* 



■ POKE 



I. *2. 



■ 3,3i *E*uBp- 
«39:-72* CO'E ft. 3. 3. 42, 2 
3.3: RETtXU 
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PC 



1251 



™:r 128: [0«T »«H 


3Mip*tit-i -e=ees mce T " 


•,;2-VCuS Li *E!5-E '' 


LISTWffS'l CAU, ^574 


• **: := ^M'so-i* w 


433:»?:>- -&u: fl'jGT , E>-=-. 


as-*<4* 3015 999 


"1 CAE.L 4376 


i-.»jr "S_5 L-I"=1-3 


4iei- T UKT •_£ ?0*"s T 'EL 


-IE »*!Wl IF 9ta*3*J 


-.i—AOUe-: CAsi 457 


f 90 =f»-c- »amr ■ 




■=--:-z: L-imiMM 


•*23i°"f:s" 'ElEaIOS 6til a 


TE*: PflKT = IP=IHT 


L*6r©»TEirT*i CflU ^57 


: W1BT -■ 


6 


=>:>■ '"KWO" ; D8aG 


*5<iP:;>7 •_: ^q i1S S£ jc 


:-:- ■■ Cfci «5 T * 


-*'5 3E VIE*" CAU, 45 


":■■ *Cft-S:9T-: i 9F 


75 


TC.TEs LE": c*l *3? 


«48:?*t:v: -=T LES t-JEsot 


6 


3 VC--9E-: CCLL '37S 



::_£_- ?eyT-: csj.l 



376 


47«:?»:>- -si I. V a u h 


•eai'PlHT 'SE EPLftCSS I' 


v •S£S01': Cflu. 4376 


--; _E *: ■:-._ 45T4 


439:":*: 'JAMS .a ^ISEC 


I.3:«:-- 'BC-C3i> a l.*I 


riOt. P0S££.'s ca L . 4 


JE 3E3 *: CftLL -*J7^ 


3'6 


i29:«I>*'" ItmCTItNS 5U 


t93sPSIkT -5:_s t ,£C3All L 


'VW-7ES :•! CAO. *57 


E> -.='= £—1 "All 4j 


6 


76 


ae»**)i>n '-««3*(2) - s.. 


s*:»a-y: -.e; csje _ s 3 = 


3s<8)*i CALi. 4576 


=S*T-"3 r--S': Ci.L a 


;40-.=s;ji- -estsc«} . aoj 


5-6 


S7s<6>': CAJ. 4576 


313i«:nT "LES PIECES cT 


15e:«>* *£T DES IJ0W?£S 


.= 3Ca«£s-i CAU 43 


- '--'.E*-- CAU. 45 


76 


76 


320JP8;-.' *(C)8J*r t«->o*i 


:s*:»:-t • 'o-.v=:s o 


';"-£ OJCAt^a*: C«ll 


lExtMSTi ■:-„ -: T i 


*576-. «>- -< = )'S D 


:73:=>s>- *<C«.S fS>CA« 


E KE": CAU 4576 


:j r. ...--:■ 


333:-al- : »*:-,- '435 


; = i:?;>- '(SJAHASSE*! .. 


2 f 3 P-: 


T : '-■ 4'~i 


CAU 45761 Pf JMI - 


;5i:5j;,- ■_ ,:=-_,;: — ■■-- 


"I'-T 


•--.= ■ ■•£=--•: CAU 45 


8WSUAIT 123: P»InT • U 


'* 


k ;-S7a«7...- 


209** > 3»-rT 'VALAStS r -.E ■. 


oje»c*.aw : wmoii ; n:x 


Z'-Vrvt.-"- Col. --574 


Kf<$f9>'l*3f<9>9}«li 


i:i:= = ;-- •■> BM a r= 


Ei<5.9>-1.0*(9.9)»L 


3EF0NCE :-j- : cau 4? 


323:-0!> 1-9 TO 9:>-*<;.9) 


76 


••l*:0*(9,I)*-:-:S*( 


223i°»;-7 -j«E »0-(ts gyy 


[ff>-i*i*sEi(e«n-i*i* 


r;-;- 


: NEZ- ::r.»(9.9>-*7* 


230iP0Ur- "-CLE/ L0SSW5 


33a»Fr« ;*8 to 3: =0? ;» 


ims •: cau 4r"6 


3 70 9--1- BJQ 6:«f<: 


2a8;33>- ■P-RTE EST =E- 


.;>• 5TS* H*S«I«J*1 


-EE a Cte's CAL1 45- 


)» S T S» Hi ftBCT U 


6 


vsxj : 


2303W* r '<C!JVS*fi) LOW 


343;fop :»9 :c 5: fob j« 


KJe USE '■■ ;att 437$ 


9 *0 ?:,-» USD EitrKl 


263:=*»I>-T -»0» T E -.?'>- ' 


.*)■ S-?f -:E*rr*l.J 


LU3 -" ; "EE - : ■:-. *^ 


»■ ",-3i fl KEXT Jl 


75 


HEXT : 


278*P«i(t7 "a CLE ...-: 


330lX«9iY«9*V"lW«*««15* 


Cftti. 4576 


f-»8 


2S0-pa*H7 -'DEFO-CEBi SE 


369::;- a«'9.9'*l.X(4),V 


"=■-■:" *1 CAU *576 


(4>.V<4) t *tM)l5-4 


i93:3»:'-T -aQP'ES ET "JO 


373if.jp 1*0 ' r J G:V'l>-29 


S SA-jF": Ca„ 4576 


- WD 2A'X<i)"( "KD 


SBBiPKUn »CE0X En aCIEP 


i0)-i(Ytiw am so- 


(L) ...■: CALi. *37fi 


-.;5,,/, : ,.v. ;,-■:- 


;i9:==:-t -.e; dpjwohs e 


s -«3(7 : 


OUT ATTIBES*' MLl J 


'i5>: r ',a 1*3 TO 91 ?W 1' 


^ T 6 


3 :a 9: r- =-: 3-6 


J20SPBIWT -=aa L £g i^r 


oa pi(;.*j«*5" theh 


> •! CAU. *576 


913 


Ui:^3l-t~ 'PatOPOrrTIOMNEL 


B90f»f> i-j -;: ;? - = 5 


S aj/': ;■... 4576 


--:■- 910 


340:*<-tlNT 'AC~rON8 E c; E", 


M»'P*< "(J*™ B7M H 


-L-SS8 -..'; CALL 4{J7 


giamecr n r-sx? • 


6 


928*91(1 u*<6)-2 


35a-P9isT -ls rot,Eaa 5 e^ 


•l4-.*\- 1281 p=;>t *APP 


■ ACCE^TES*' CALL 45 


UYEJ1 SUA PLAY 9VP* 


'6 


54?itaa;- 9: »*;-• * uhE 


ii^:ps;~- -,E MWaA* AVE 


I1IWJTE ...-: CAU 4 


6 

-~P:P;--.- ■ ■■•':. . .-■■ 


576i Cia;- *3«3<2>' 


3486- «£* 


CAU 4376 


3y'9. 


;39:?=;>7 'L.OftDfiE '-^ B 


3436- 1£C 


art^SjE-i CAU 45-'"6 


2345. 



AVEC EDIMICRO 
DOMESTIQUEZ VOTRE ORDINATEUR 






MULTIPLANSURIBMPC 
Exercices de gestion 




JEUX SUR COMMODORE 64 

Denombreuxjeuxpassionnants, pr&ts £ romptoi, pourvotreCommodoro64.Cha- 
qoe >eij est presento en detail : organigramme, etude ligne- a- 1 ig no, lisle des ins- 
tructions de programme. 

Ces livres vous akJeront aussi a aeer vos propres prograrnmes- 
Jeux dadresse et de h&strd - 16Q pttges - 8B F, 
JeuM d'actlem H dc reflexion - 160 page* ■ $8 F. 

JEUX GRAPHIQUES SUR SPECTRUM 

Paracrmtiste. cooleuvre vrxaco, cnasse anli-sous-marins. pont de lortues. Mad- 

max. raid aerien, Orhello, Jackpot... 

Vous entrerez faciloment les programmes au clavier de voire ordrnateur et appron- 

drez ainsi la programmation. en vous amusart. 

1 80 pages - 88 F. 

AVENTURES SUR SPECTRUM 

De superbos jeux d'aventure, dont un programme oxceptionnol "L'OFJI du Guerrier 

des £toiles". 

Chaque phase de jeu osl dairoment et compldtemefil expliquee : creation des 

monstres. ettets graphiques, corribal et mouvemertl. 

200 pages - ISO F. 

ORDINATEUR FAMILIAL : QUE CHOISIR ? 

Un livro pour lous les publics, qui vous donner3 envie d'acquerir un ordinateur et 
vous lera ecooomiser du temps et de I'argent. Vous y liouverez un "portrait" des 
priocipat/x ordinateurs familiaux : Alico, Commodore 64. ORIC/ATMOS, SPEC- 
TRUM, TO 7. VIC 20... el bien d'aulres. Avec des laWeaux et Hstes comparatives. 
200 pages- 85 F. 

Dix exercices de gestion, pour apprendre a utiliser Multiplan sur IBM PC : paye, 

venles, diagrammes. Marts, nmortissemenl, stock, tableaux de bord... 

Pour chaque exercice ; obioclr'. moyens. descriplion du tableau, construction du 

mod6le, modifications et adaptations. 

200paoes- 125 F. 

FICHIERS EN BASIC PAR L'EXEMPLE 

Premiere partie : notions de base sur les Itcniers. Deuxi^me partie : qualre exernples 
compietement traites : carnet dadresses. bibliotheque, budget familial, cave a vins. 
Les exemples sont tous en Basic Microsofl, et ont ele exoculos sur un ISM PC. 
Lfl methode est simple et ratWnello : vous apprendrez, sans difticutto. a gerer vos 
informalions sur microotdinateur. 
280 pages- 148 F. 

LOGICIELS SUR CASSETTES 

• Ouatro jeux pour TO 7 : PICKMAN. CHASE. CHENILLE, MUR. 

• Six faux d'action et reflexion pour TO 7 : STOCK-CAR. CAVALIER. LETTffl- 
VORE. ASTEROlDES. SOLITAIRE. BOMBARDIER. 

Vous trouvorez tos programmes corrospondants dans notre ouvrago "JEUX SUR 

TO 7". 

La cassette do quatre ou six jovx : 120 F. 

JEUX SUR PHILIPS C 7420 VIDEOPAC * 

Avec son extension Basic, la console de jeux Videopac Philips G7 400 vous offre 

la possibility do vous initier a la programmation en Basic par le jeu Plus de vingt 

programmes vous sont proposes, de longueur el de ctillicultO croissante : initiation 

au Basic, graphismos el sons, techniques do programmation dos jeux, joux 

d'action, jeux de reflexion. 

180 pages 98 F 



RON DECOMMANDE 

1 Je d6siro rccevoir Iris OUVTBQM survants ; 



Ci-joint mon reglemont par clieque da F, libelW a I'ordro de 

FDS/Edimicro (participation aux Irais do port : t vol. :9F, 2 vol : 13 F. 3 vol. I 
16 F, 4 vol. et plus: 21 F). 

I ] Jo ddsiro rocevoir voire c.italoguo 

Norn : Adrcsso : 



Signature : 







FDS-EDIMICRO - 121/127 Avenue d'ltalie - 75013 PARIS - T61. : (1) 585.00.00 
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PATROUILLELUNAIRE 



Votci une version du classique jeu d'arcade "Patrouille 
lunaire" pour Texas. L'obstacle de la lenteur du jeu a 
ete detoume grace a une astuce de programmation. 
Ce jeu Txxjcle" & I'rnfini sur un decor qui defile. Votre 
mission consiste & franchir les trous en sautant et a 
delruire les bosses en tirant. 
A vous de parcourir la plus grande distance possible. 

Raphael DAVID 
Principe du d6fiiemenl du decor. 

Vingt cases sont numefotees de RIO a R01. sur les cases d'ecran 
10 It 27. situees au niveau 20. les caracteres 91 a 104 correspon- 
dent aux trous et aux bosses. 

Le code du caractere est place dans une case de numero impair, la 
hauteur de ce caractere dans la case de numero pair la precedant. 
La hauteur est de 19, pour une bosse (caracteres 100 a 103). de 20 
pour !e sol plat ou en creux.(Plat= caractere 91). 
Si vous voutez completer le decor, mettez de nouvelles valeurs a la 
place des O.O de la ligne 3610, hauteur en premier, caractere en 
second. 

Chaque instruction DATA doit se composer de 30 codes (15 hau- 
teurs et 15 caracteres) sauf pour la demiere qui doit se terminer par 
O.O. Ne mettez pas plus de trois bosses par instructions DATA. 



160 RANDOMIZE 




170 CALL SCREEN ( 


SI 


ISO CALL CHARC4C 


-00071E7E7FFFFFFF") 


190 PL-0 




200 TA=0 




2IO TA1-0 




220 TA2-0 




230 RESTORE 




240 CALL CHAR'4! 


-0OE0101O3EF8FFFF-I 


230 CALL CHAfifSC 


'DBBD3C18"> 


260 CALL CHAR 131 


"C3ailS3C3C18-> 


270 CALL CHAR (32 


-C3810OOO1B3C3C18-1 


2BO CALL CHAR (60 




290 CALL CHAR (91 


"44BFFFFFFFFFFFFF") 


30O CALL CHAR (92 


"40C0F0F0F8FCFEFF-) 


310 CALL CHAft<93 


- Ol 1 03O70F 1 F3FFF " I 


320 CALL CHAR (94 


-81 83C7EFEFFFFFFF ■ ) 


330 CALL CHAR (93 


"0OOO0O1B42E7FFFF") 


340 CALL CHAR ( 1 


., -000018383C7E7EFE"! 


330 CALL CHAR (10 


, "0 1 1 030707 1 F3F 7F " ) 


360 CALL CHAR ( 1 


\ -66FFFFFFFFFFFFFF-) 


370 CALL CHAR ( 1 


., -BOeOCOeOEOEBFCFE- I 


3SO CALL CHAR (10 


, -0100647849374656-) 


390 CALL CWARd] 


', "FFFFFFFFFFFFFFFF" ) 


400 CALL CHAR ( 1 1 


,-IB-J 


410 CALL CHARdl 


.-183C3C18") 


420 CALL CHAR ( 1 3 


,-40C0F0F0F8FCFEFF-> 


430 call charm; 


.-0I0103070F1F3FFF"! 


440 CALL CHAR(13 


, -OOOO0O18427FFFFF- ) 


450 CALL CHAR ( 1 4 


."FFFFFFFFFFFFFFFF"! 


460 CALL CHAP (13 


, "40COFOFOF8FCFEFF- ) 


470 CALL CHARUS 


."O1O1O3070F1F3FFF-) 


4BO CALL CHARUS 


.-OOOOOOIB427FFFFF") 


490 REM 




300 REM 




3IO CALL COLOR (2 


10. 5> 


320 CALL COLOR (3 


14.5) 


330 CALL COLOR <4 


7,51 


3*0 CALL COLOR (3 


16,5) ,> 


359 CALL COLOR (6 




360 CALL COLOR (7 


16,5) 


370 CALL COLOR (B 


12,3) 


360 CALL COLOR (9 


15.3) 


590 CALL COLOR (1 


. 12, 16) 


600 CALL COLOR (I 


, 16.5) 


610 CALL COLOR d. 


.2,1) ^ 


620 CALL COLOR !1 


.2,13) 


630 CALL COLOR IK 


,2,I3J 


640 CALL CLEAR 




630 PRINT " EM Ri 


ISDN DE LA FA1BLE 


LA JEEP- 




660 PRINT 




679 PRINT - LUH 


IRE A VANCE TRES 


9T SAUTE " 




680 PRINT - 






BONNE CHANCE " 


690 FDR T-l ID6 




700 NEXT T 




710 CALL CLEAR 




720 PRINT " PA 


ROUILLE LUNAIRE - 


730 PRINT 




740 PRINT "APPtTY 


I BVKE) POUR SAUTER 


730 PRINT 




760 PRINT 




770 PRINT "ARPIJV 


2 SWD> POUR TIRER 


EPRE" 




780 CALL HCHARd 




790 CALL HCHARd 


.11,41) 


BOO FUR T-l in z 




SIO FDR ri=o TO 




B20 CALL HCHARd 


,10,30*T1.2) 


830 NEXT Tl 




840 NEXT T 




SAO REM INITIAt 


I5ATION DES 


07O PEM 




080 REM POINTS 


DE LA PI arc 


■Joo x-ie 




9IO V-13 




920 CALL CLE/.P 




■ Afl A.L 






HAUT. HEFIEZ-VOUS ET 




990 READ A, 
tOOO R05-A 
10IO R06=6 

IOI0 RE AS A 

I'M'.' f':P.--.'. 

1050 READ A 
1060 R09-A 
1070 ROIO-B 
IOSO READ A 
1090 R011=A 
llOO RO!2=B 
1UO READ A 
1120 R1=A 
1 130 R2=B 
1 140 READ A 
I 150 R4-B 
1160 R3=A 
1170 READ A 
I 1 80 R5=A 
I 1 90 R6=B 
12O0 READ 
1210 R7-A 
1220 R8=8 



) R11=A 
) R12-B 

) READ t 
) RI3-A 
) R14=B 
) READ ( 
1 R15=A 
) R16=B 
> READ * 



1380 READ 



* 




> REM FOND ETOILE 

) REM — 

) FOR ET-1 TO 40 



1430 PE- 



NT(RND»I6>* 



1470 CALL 



1510 
1520 

1530 



1590 
I6O0 
1610 
1620 
1630 
1640 



HCHAR(PE,VE, 112! 
ET 
TR=I TO 10 

:nt(rnd»16)-i 
:ntirnd«30)»i 

CALL HCHAPIGT.GB.l 13! 

NEXT TR 

REM 

REM 

CALL HCHARI21 

CALL HCHARC1B 

CALL HCHARd9, 

CALL HCHAR 

CALL HCHAR(19, 

CALL HCHAR 

CALL HCHARI20. 

CALL HCHAR (21 

CALL HCHARI21 

CALL HCHAR(21 

CALL HCHAR (21 

CALL HCHAft(22 

CALL HCHAP(22 

CALL HCHAR (22, 

CALL HCHAR(22. 

CALL HCHARd' 

CALL HCHAR! 19. 



i CALL 



1. 
1 , 


10.9 
35,7 


1 . 


40,7 






H. 


321 




140! 




1331 




40. 1 


Th 


140. 




132) 


26 


133) 


13 


133 




r.-.-i 


■■ 


140) 


28 


1 331 


■ " 


140. 


^'0 


133! 



PESANTEUR 





LES TROU'J" 




LES TAS DE T 


1740 


CALL HCHARI20. 27, 140.3 


1730 


FOR T-0 TO 2 


1760 


SC-SC*t 




IF PL<2 THEN 2630 




IF M2-1 THEN 1BOO 




IF M2<>-1 THEN 1830 


18O0 


CALL HCHAR1XM. 13,32.2 


: r ! i - . 


CALL HCHAR(X. 13.32.21 


1820 


CALL SOUND (-10,-1,0) 

GOTO 2090 


IB40 


1B50 


CALL GCMAR(X*2,Y*t.CI 


1860 


IF C-91 THEN 203O 


1870 


CALL SOUND(-10O0.-7.O) 


i BBO 


CALL lCnnR(X,Y,32,2> 


1890 


CALL HCHAR(X+1,V,32.2) 


1900 


CALL HCHARIX*I.Y.40) 


09 lO 


CALL HCHAR(X«l,Vtt ,41) 



1920 CALL CLEAR 

1930 CALL COLOR(8.16,5) 

1940 CALL CHAR(5O.-3C22O4O81O2O40FF-l 

1930 CALL CHARI51.-FF01O1OI0F01OIFF-) 

1°60 CALL CHAR(52.-202020rOFF080a-! 

1970 PRINT " SCORE «"iSCS" KM- 

1980 IF SC<HSC THEN 2OO0 

1990 HSC=5C 

2OO0 PRINT " MEILLEURE SCORE =-!HSC:* 

2010 SC»0 

2020 GOTO ISO 

2030 CALL BEHARH+1»Y*2,C1 

2040 IF C"32 THEN 2090 

2050 CALL SOUNDI-1000,-7,0) 

2060 CALL HCHAR(X.Y.32,2) 

2O70 CALL HCHAR(X*l,Y.I08,2) 

2080 SOTO 1920 

2090 CALL HCHARIX. 13.40) 

21QO CALL HCHAR(X, 16.41) 

2110 CALL HCHAR(X*1, 15.50*T.2> 

2120 REM — 

2130 CALL KEY(O.Jl.Hl) 

2140 tnOOO THEN 2640 

2150 IF H1=0 ThEN 2630 

2160 IF Jl< >6B THEN 2560 

2170 CALL GCHARU9, 1B.C) 

2180 CALL 6CHAR(19,19,Ct > 

2190 CALL GCHAR(19,20,C2) 

2200 CALL GCHAR(19.21,C3> - 

2210 IF C-32 THEN 2270 

2220 R8=91 

2230 R7-20 

2240 SC-SC»I0 

2250 GOSUB 2450 

2260 6OT0 2530 

2270 IF Cl=32 THEN 2330 

2280 R6=91 

2290 R5-20 

23O0 SC-SC»10 

23 1 GOSUB 2450 

2320 GOTO 2330 

2330 IF C2=32 THEN 2390 

2340 R04»91 

23SO R03-20 

2360 SC-5CMO 

2370 GOSUB 2430 

2380 GOTO 2330 

2390 IF C3-32 THEN 2530 

2400 Rl=20 

24 lO R2-91 

2420 SC«5C*J0 

24 JO GOSUB 2450 

Z440 GOTO 2330 

2430 IF TA-O THEN 2480 

2460 TA-O 

24 70 RETURN 

24B0 IF TA1«0 THEN 2510 

2490 TAl-O 

23O0 RETURN 

2310 TA2-0 

2320 RETURN 

2530 CALL HCHAR(19,17,60,3) 

2540 CALL SOUND(-100.-7.0> 

2350 CALL HCHAR ( 19, 17. 32.31 

25*0 IF Jl:>69 THEN 2630 

25 70 H2--I 

2380 VT-l 

2590 T--1 

2600 REH 

2610 REH DESSINS DE LA PISIE ET 

DEPLACEMENT DES COORDONNEES 

2620 REM 



2fcSQ 


PV-fl-'l 


2640 


IF TA-O THEN 2690 


I IS ■ 


CALL HCHARI1<J.29-T*.S2) 


auo 




2&70 


IF TA/I9 THEN 2690 


ZfcBO 


TA-O 


2690 


IF TAl-O THEN 2740 




CALL HCMAR(19.re-TAl,32) 


ZM8 


TAl-TAl'I 


Z7Z0 


IF TAKI9 THEN 2740 


:■■-: 


TAI-O 


2740 


IF TA2-0 THEN 279* 


Z P3Q 


CALL HCMARd9.28-TA2.32> 


2760 


TA2-TA2*! 


2770 


IF TA2-C19 THEN 2790 


r-£>? 


TAT-O 


2790 


CAIL »CMAR(R19. 1 1 ,R20> 


2B0 1 


R19-«I7 


-."fl : a 


R20-R18 


2B20 


CALL HCMAfi(RI7.12.Rie) 


2B30 


RI6-R16 


2B40 


R17-RI3 


2BSO 


CALL HCMAR(R15. 13.RI6) 


2860 


RIS-R13 


2070 


R16-R14 


z^s:-' 


CALL HCHAR(R13,14,Rt4) 


^190 


R13HUI 


2900 


R14-R12 


2910 


CALL HCHAR(R11.13.R12) 


2920 


R1I-R9 


2930 


R12-R10 


2940 


CALL MCHAR(R9, lA.RlO) 


29SO 


R9-R7 


29AO 


RIO-flfl 


297'0 


CALL HCHAR(R7.17.R9) 


29B0 


R7-R5 


2970 


R8-RA 


3000 


CALL HOVtR(R3, le.R&l 


SOIO 


R3-R3 


Soao 


R6-R4 




CALL HCHAR(R3.19.R4> 


3O40 


R3-R1 


30SO 


R4-R2 


3O60 


CALL HCHAR(R1.20,R21 


3O70 


Rl-ROll 


SOI " ■ 


R2-R012 


3090 


CALL HCHAR<ROH,21,RO!2> 


310© 


R011-R09 


31 lO 


R012-R010 


3120 


CALL HCHAR (R09, 22, ROIO) 


3130 


RO9-R07 


3140 


ROIO-ROB 


5190 


CALL HCMAR(R07.23.RO01 


3160 


R07-R03 


3170 


ROB-ROA 


3180 


CALL HCJtAR(R05,24.R0fc) 


3190 


RtV.. Ror. 


32O0 




3210 


CALL HCHAR (Rl>3. 25. R04) 


3220 


RO3-R01 


3230 


R04-R02 


324 O 


CALL HCHARIR01.26.R02) 


xzso 


READ A.H 


3260 


IF A*POO THEN 3SOO 


3270 


1,1 SIMM 


3380 


GOTO 3250 






IF A019 THEN 3390 


33lO 


IF TAOO THEN '■'■*•• 


33 20 


TA-1 




GOIO 3390 


3340 


H nil ■• un ti i rro 



« *•£# 
&»&£ 



3350 TAI-l 

3360 GOTO 3390 

3370 IF TA200 THEN 3390 

3380 TA2-I 

3390 R02-B 

340O ROI-A 

3410 NEXT T 

3420 IF N2»l THEN 3470 

3430 IF M20-J THEN 3490 

3440 M2-1 

3430 CALL HCHARfX* 1 . Y.32.2 

34 60 GOTO 1730 

3470 X-10 

34B0 M2-0 

3490 GOTO 1730 

3300 REM 

3310 REM - PISTE 

3320 REM - 

















1,20,91 




























1,20.91,20,91 




























1. 20.91,20,94 

3380 DATA 20. 91. 20, 91 

0,91,20,91 


20,91 


20,91 


20,91 


20,91 


19, 10 


. 19,102. 19,103,20,91,20,91,2 


3600 DATA 20,92.20,94 




20,91 


20,93 


19.100.20,9 


,20,91,20.91.20.91,20,91.20, 

■ 
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4Ms">4* ?(ni a, 16,32. ;2 


559!I? z-i u~ IWh-U 


635:=0B :»: TO 9: 1= =»( 


695: RETURN 


T5a:9£-(..R>. 


T.32.16: lETUWl 


555:1- Z.; ..." .—28 


:.Y)-*6* w£T U«l 


698:*<EY't)*« IHVEY* I 1 = 


899i" c :-«*i kA;T 6*: JEEP 


SMt'Ol' MSvl '«Evu,< 


w-:= Z'* .= : K-M44« 


648ISEXT ;: !£TliSN 


0««" TMtH 699 


4 


U*I »-| 


565i : c r.3 LET V-v-29 


6*5:-0T* GOSUB •'<tV:3«2 


695:C0Ll 26688= CftLL 459 


a:9:PRI«T -1SAV0 VOUS ET 
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FOR >; *0 Gi IF d<j 


■1 1T»| Si- 3iB»ES* 


o? a-%) _e t »<>; 


53et*.J6* 0OS'..S '«Y*ll-S 


0f\}0» 


»D(|) LP *»D<*>!D< 




5;5:;e OI>*r 6H3 (Nag 


.5^-9 


655:F0R J«8 TO Gi IF 0<J 


[)0(J)iKJ)*« 


PEEK 328131 IF R>« 


<j} >..6 M »"TJ L£J V 


535i If WO'8' "-E^ 699 


>*9 LP ;>' 


T95!NE!\T }i HFXT ;i 




«y»: 


5^e:F0B J«Y TO 9 STEP -1 


669:*.EXT Jl I' 9ND 2-2 


PETJRS 


849IU0IT 331 FOR I«8 TO 


JMitF M«'4« it: (E*9 


: If ?I<X.Y>«*4* LET 


HTIMH 


rifli*KOT(* CALL 438H \s 


4: CALL 2863a: P«txT 


OB £-6) .E- >■>!-; 


•J-3 


U3IMAIT 64: te O-.0 3>3 


0I«'8* ONft s-: LET s 


•RECORD i*i STRI <i* 


',::;--:-.=- 


5951NEX' ]■■ RETUSrl 


1EEP i: D i>lNT -Hie s 


KX»Y)> S*Pi JihKX. 


SARRES'l HEXT 1 


m-.'Zl- 608UI -<EY'!3-1 


689::-" &IOV T«K l\1 


hT£ ...-: i)£T(J3h 


Y-'.)« STfff J 


639IP0XE 32814. K'236.((K 


,5i;-4!i«6: GHUI '" 


6951F02 J'H 10 9i I' P»< 


6Tai»pi,.T -vous '..«ve; t 


TISH" 0*«-6" ftS3 0-1 


'236)- lltt (K'256>)« 


0B*i ftvm 


■;.,:,•'<,• LP ,j.< 


urtH i*ivft}>vri>-u 


LET Oi(X.Y)-. STR» Jl 




5J5'*0!- 50SUI 'i(EY*i|>S 


SltiNEXT Ji 0£Tu8N 


•(15* 9"5 :8)/188i 


E«(X*liY>- STPi .' 


868IMAIT 1 PRINT * A01E 


■ ;-2i;>Si .M5t»i **od 


615H- QfO'4 1 !«£»• 6J8 


IF V(I)>9 SET;j»n 


7291 ;F 0«-*2* «h3 «»; 


U ...■: Etli 


'fl-SOSl GOUil --0 


o28i c 0'! I-X TO 9 STEP -I 


»T5iSEEP 2> WAIT 129: 


LET HftXiYl" Stoi ;, 




:-::.4ij.3i wsui -h 


! \- PKI.Y).**' LJT 


mm *IL " ) .FF=0"-OBE 


£I(X.Y*1>- STPI ; 




OJ'i 9 E -^s^ 


'J-2 


. 10BT "•• 


T23UF Of* -4' AlO £•: 


JJ9T. 


5*51-05-S-2: '.: ?•? M Z 


w-»v/- i! R;:i)»s 


689iB(i)— It GOSuS -T6IE 


LET f,KX.Y>- ST9» Jl 




•e aerwH 


6I9i I? 0IO-6* ^ET'JflS 


•:G'G-:!P*(X.Y>>" 


0«<X-1.Y). ;tri ; 


2UJ. 



DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un 

W«n dc Men original dans cette 
formule, pourtant noui ••- 
sayons dc fafre qudque chose 
de different : nous orgarwsons 
un concours permanent tous 
les mens et tous les trimestres ! 
Et avee des pri I dtgnes de* pro- 
grammes que vous allez nous 
•nvoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
lews programmes prefer** aur 
la grille recapitulative men- 
Ms 

Pas de Jury, pas de decision ar- 
brtraire, HEBDOGICIEL rfinter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvo*r nous le 
proposer a nouveau. 



Pour parbciper, il vous soffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation airtsi que toutes les ex- 
plications necessaires a ■'utili- 
sation de ce programme. 
Bonne chance ! 



Reglemenl ; 

ART. 1 : HEBDOGICIEL organise 
de facon mensuelle et trimes- 
thelle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois ct du trirnestre 
ART. 2 ; Ce concours esl ouvert a 
tout auteur de logiciel quelque 
soit te materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue facte de can- 
didature 

ART 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
journal 

ART 4 : Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
tnmestriel 

ART. 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART. 6; Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
iure du concours trimestnel. 
ART. 7: Le present reglement a 
ete depose chez M ait re Jauna- 
tre. 1 . rue des Halles 75001 Paris. 
ART. 8 HEBDOGICIEL se reser- 



ve le droit d'interrornpre a lout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART 9: La participation au con- 
cours entraine facceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 
FOY - 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour unmeme 
ordinateur 

Ainsi, pas de favoritisme pour 
les ordinateurs plus putssants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn: 

Prenom : 

Age : Profession : 

Adresse : 

N° telephone : 

NomrJu programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est m une imitation ni une 
copie dun programme existant. Ce programme reste ma propnete et 
j'autorise HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descnpW details >_du mat6nel utilise, 
d'une n ot ] ce ^utilisation du programme Les supports des program- 
mes publics sonl conserves. n'oubJiez done p.is d*en lain; une copie 



RECOMM AND ATTONS AU X LEC- 
TEURS OU SOUHAITENT F AIRE 
PUBUER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'empfoi, latings et bon de parti- 
cipation dans une meme enve- 

vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en 1'indiquant sur votre 
Bon de Participation. 

• N'oubtiez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Nolez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom, le nom du pro- 
gramme et le materiel auquel il est 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de limprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas lout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se complete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnemenf et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 
rier. 



Ne nous envoyez plus d'envelop- 
pestimbrees, mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particular tes de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evttez de nous envoyez 
les jeux sutvants ; BIORYTHMES. 
MASTERMIND. PENDU. TOUR DE 
HANOI, CALENDRIER. BATAILLE 
NAVALE. POKER. JACKPOT 
BOWLING, BLACK JACK. LABY- 
RINTHE. MEMORY SIMON. 421. 
OTHELLO, SOLITAIRE. LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORtE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI 
TEURS : BORDAS, DUNOD 
EYROLLES, MASSON. NA- 
THAN, PSI, SHIFT, SYBEX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
c*e" de Jank* TAILLANC4ER. 



CHENILLE 



Une micro chenille pour un micro-ordinateur, les pro- 
portions sont respectees... Si vous ne laissez pas gran- 
dir demesurement votre chenille! 

Olivier BERANGER 
Mode demploi: 

II s'agit dune chenille qui evolue sur I'ecran de votre Canon a la 
recherche de nourriture. les petits points, qui peuvent etre a voire 
convenance des pucerons. des oeufs de pucerons ou des fruits. 
Toutes tes aufres choses qui se trouvent sur I'ecran ne sont pas du 
tout comestibles, les carres de deux sur deux points peuvent etre 
des pierres que la chenille ne peut dkjerer, et bien evidemment. elle 
ne peut sortir de I'ecran sinon elle reapparait de I'autre cote. 



Le programme utilise deja 2777 octels. si vous suppnmez lous les 
REM il occupe moins de place, mais il faut compter approximative- 
ment encore 1500 octets pour les variables (2 tableaux d'au maxi- 
mum 300 cases plus 2 autres de 15 a 2 octets chaque case, soit 
deja 1300 octets) plus 54 pour le fichier des scores. Done, il vous 
reste aux alentours de 2000 octets pour les autres programmes en 
memoire. Faites y attention car il est toujours tncrvanl on arrrvant 
au 8° niveau de voir safficher une erreur MEMOIRE EPUISEE. la 
premiere fois que le programme est execute s'il n'y a pas assez de 
place en RAM fichier il vous demandera dappuyer sur F2 qui aura 
pour eftet de valider la ligne FSET54 | (nombre d'octets du fichier 
RAM) (nombre d'octets libres) qui reservera exactement le nombre 
d'octets necessaire au fichier du score un RUN s'affiche. si votre 
programme se trouve en fichier RAM rajouter entre guillemots son 
nom, faites un RETURN 

Apres un RUN s'affiche un choix. appuyer sur O si vous voulez un 
cadre (une barriere autour de I'ecran). sur T si vous voulez changer 
les touches de deplacement (celles-ci sont reparties autour de 
I'ecran suivant faction quelles ont: la letlre sur le bord droit corres- 
pond a la louche devant elre prcssee pour se deplacer vers la gau- 
che) {REMARQUE: les touches, s'affichent la direction, la louche 
(ou son code) en vigueur. a vous d'entrer la louche desiree. 



Voila pour le jeu. il est tres simplo demploi quoi que Ion puisse 
penser on lisant ces lignes. 

Maintenant. voyons les parametres quo Ton peul changer. Surtout, 
ne pas changer la ligne 75. 

Changer le nombro d'oeuls a I'ecran: changer F ligne 70. 
La longueur de la chenille au premier lableau (longueur a attoindrc) 
changer C ligne 70. 

L'allongement de la chenille a chaque oeuf mango : H ligne 70 Le 
nombre dobstacle :G ligne 70. 
Le nombre do vies: PP ligne 70. 

Lo bonus de risque avec lo cadre K2 (ligne 60. 90 moltre la meme 
valeur aux deux). 

La vio supplementaire est gagnee au douxiomo tableau puis lous 
les 4 tableaux: ligne 175 H MOD 4 - 2. le 2 est In'erieur au 4. 
La longueur maximum au Nicmo tableau 300 : ligne 185, 
Nombro dobstacles superieurs a chaque tableau G Gi 5: ligne 
185 

Alongement superieur H - H I 1 ; ligne 185. 
Musiquo pas a la bonne vitosso B1 x 3 : ligno 395. changer le 3. 
Elle est lassantc : changer la ligne 395 on" 395 BEEP HND(1) x 99 
I 99. 1: RETURN. 
Voila, je pense quo cela devrait aller!. 
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20 ' Forwt 

23 DEFIhTft-4'D£FSTRR-Z>CLS *■■ - ■ (ntcpijf G0T02«e 

39 CTjMSOLEfi.'i.e. l.9'CQHBOt£M,l,e- IMITtl , Scor*'.' 

35 ' Choij- 

Aid K2-I PPIMT PPIMT- ftv»c C*clre <0/M)-," <i 

43 PESTCrf-ESeVFCiPM^TOS Pttoe.fi P'MOvy.M. I ) 

30 IFR<* -THEMP=«It^'3rPS<FlSC'P>).2j 

33 L0CfiTER»'LF.(l'P ■=2P>it>ft' >e».B PPIMTP; ICXT 

60 R-IWE'fS IFR-"O-THEWK2-3eLS£IFk»"-rHfct*>*lhL9eiFR-"r-lHEH410 

63 ' Initi«ltsat)Q<n 

79 fi-PNC.0> F=13C-30 H-I G-30 PP»3 

?3 E"*:c-5>(h a=c-MrE-2 f- 1 e-e 

83 DIf1fi/C-l),B«:C-l>,I<F>,J<F> 

90 ' Dessin <±i ifi 

33 CLS rFX2-3THE>4-IHE(e.e)-' 1 19. 0VLIHE-' 115-31 > LINE-*: 0.31 ) LINE-' 

180 FORj-eTOfl (¥. J>-1S B<J>l/HEXTiIFF>ETHErF-E 

103 FDPJ-1T0G K-3*Itfr'Pt«Xl>*39>*2 L=3*lin'fQ#y I »9>*3'C08UB39S 

lie P3CT-K.L/ PSET'K*I,L> PSET^K*! .L*I > 'P3ET< K.L»1 ) ' MEXT 

115 F0RJ-1T0F C0S1JB393 ■ (JJSUMrWJ E>E -1'HEXT 



IZ 



'Jtu 



123 O»STRIC<9)'H-16'H-1V*'GOTO140 

130 0-INSTR(l<,IMKEV»)-l ■ IFO>0THEHP-O 

133 OHPOTSue233.240.243,230'ft-<fl*l >rWDC ■ * R )-H BX ft >"H 

140 IFN0TP0INT'n.N<rirENPPF_SEKf*B>,Br8:»)'B-rB»l vMODC GOTOlfeH 

143 COMSOLE,,,9'F0RJi.lTrjF'BEeP>; J>*100.1 IFJ< J <' >MORI< JX /NTHfcHMtxr fiorO310 

130 GO6IJB220 K1-K1*H*K2*PP'C0HS0CE. . . I 

133 IFH>lTHEHF0RJ-2irjH.Bi>r8*r>l >TVX^ f¥. Bl WKBr&Bl )»B< B > e-Bl HEXI 

160 PSET'M.NJ 1FF>0THEKI30 

165 ' Ch-St d« tabt«*u 

170 CLS' PRINT PRlnr-Rt».eri».lon-," c« rfi'f.MRM I36^"«*rr» 1" PRINT 

173 IFH M004-2TH6NPPINT"jw«c urw v)» «n ♦')PP-PP*1 

\m PfiTijPm^n FOPn=rto,- w9)ijy/)'ie>:i'Ki^»K['? 

183 ERftSEH.B. I.JH-HM i(Mr*9 | F"29'0>C«OZ IPC .-30wrHEHC-30 H-HM004+2 

190 CLSG0T073 

193 ' Tlr«9» o»ur» 

200 K-PHty I >t 1 1 e+ 1 L-PNOr 1 )»30*1' IFPOINKK,L>IHEN290 

203 PSET<K,L>JCJ)-K.'I<J>-L RETURN 

213 ' 81 bo-jff« o«vf 

220 E-E-l ' IFE<-FIMRNK J)-KF>. J< J>-J<F) F-F-lELSeCOSUB20B 

223 RETURN 

230 ' l«il<iwnt 

233 M-Cft<flHl>rWOI20 RETURN 



240 
243 
230 
233 
260 
263 
270 
29Q 
285 
290 
299 



rt-<fi<ft)+119>nODI20 RETiJPH 
ll-< B' fl )♦?) X10032 RETURN 
N-( B< fl )+ 1 >M0032 ' RE TURN 
Tr*i 



139 

340 

343 

m 

■■■■:: I 
360 

■A'\ 

370 

■■.-, 



Ht3. "C* nor." ■ RESUME335 

IFERL-'3rjFiHr-EPP'?TMEKPF-; , ;iJME290 

I FERR-4 THEMRESUME40O 

PRINTERR-«r,"EPL END 

* P*s*rv>r richlvr 

DIP .PPIHTCHPS' 11 rnpfjvez aur F2", -FSET34+", 

F0PH-572T0392 H=PEEK> N ) lFfl-47THEMR-45 

PRIHTCHRS<fl>, HEXT LOCRTE0. 1 KEYS' 2)-" F"+CHR»'. 13)*"RUH" 
Chenlll* t'i«» 

fl-< fttC- 1 >M0DC PP-PP-1 ■8»<6«C- t :-rHMX. IFPP'! 1 TMEN335 

P=l L»fi' [Fft<eTHENL-C4fl 

FORK-BT0LPRESET<mK H0OC).B<K MOOC> ) BfctPPNt^ 1 '*1O0^iW. I 

fl(K M00C>-16'B<K N0DO17 NEXT G0T0123 
Fin du J#u 

IMITtt."scor«"'H-ST»ir;<o>. INPUT" 1 .CJI CLS 

IFK1>CTHEMT,-Kt CLS ' PPINT-R#cc*-«J . " tV,. INPUT" "jX 

PRIIITSl.G.X PRINTritPt' 12 •"Scor« "kl,"Rrcord "i., - d"CHR» lM)"ti 

IFINKEYS-""THEHi3'JtL' > ERiJN 
Ponn*# 

DftTft"0r4lt«"."GMieh«"> p Ntut*< a Bu a 

DflTfl2.192.0.0-*'.3.? 

t>0Tfl20. 2. 22. 1,24, 1.20. 2. 22, 1.^4, 1.20. 3, 0.1.20.2 

O0Tfl22. 1.24, 1,27. I, 25. I. 24. 1.25. 1.22, 4, 0.2 

DRTR19.2.28, 1,22, I, 19.2,20, 1,22,1. 19. 3. n. 1,19.3 
J 0RTR2Q. 1.22, 1.23.1 ..^.1.22.1.24.1.20.4,0,2 
) ■ M.isii'."? 
J PEfiDRI.Kt BEEP(11.B1*3 PFJURII 
J RESTORE 37<i ■ Pf ini-ll 
J ' 0*f ir.lt t ( „ 

i M ■( i [ t i 1 .' . ■-. -.'.il ni' 179) i'l I : -rPR'CLS 

5 N-NM IFPEEV'H">88TMtN413ELSEIFPEEKrN»IK>22ITHEN4l3 

1 RC8T0RI F')RM-ll»4T0Nt7 O-STRIG/0) PFRDP LnCflTE0.M-N-4 PPIHTPi 

:, p-riip*. I'll i . :i , . ni-' ■■ ■■ rm mi.' iti[.v ji-i- n ■ ■ ■ t- . . . 

i i RINTTfW ' '"l "'" l "■ 

, k-IMH ,* IO- '■•THEN433 

) fl-RSC'P>'P0KEM,R IFnr32THEI«-MIMrSTR»'H>.2< 

S PRINT" <"R">" HEXI RUN 
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DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous I 

Noua avons atlectlonne pour voua lea maltleura loglclala actuellement dliponlble* on France. Noua no 
,<r etendons pot qua celte Hate est complete et definitive el II oil *Wdn/it qu» noua y rtjaufcroni r*flu- 
"«rom«nt d«« programmer »u fur •( * meaure que noua lex teatarona. Pourtenl, voua chercharex «n 
vain certain* programmes qui joulaaent d'une bonne reputation at qui ae vendent aurtout grace a la 
publlclta at aux conaalla da* vendeura qui ne pauvant paa connaltra toua tea loglclala dlaponlblaa. 
Noua avona claaae a part lea loglclala educetHa at, par aoucl d'honnttate, not proprea produlta : lea 
Habdoglclel Software. 

Laaprlx aont noua I'eaperona, lea mallleura du march* aurtout pour laa abonnea - anclana at nouveaux 
- qui banettclant en plus d'une remlae da 10 %. SI voua etea nombreux a noua aulvre dana catta expe- 
rience noua pourrona rapldemant errlver a lalre belaaer laa tarltt daa tournlaaaura pour attalndra 
fobjectlt que noua noua aommaa tlxe : ttUVtnvr ta±j>TiKAMM-PfiL l UVJH9J</MitilO 
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MEMORI 



Vous devez, en tes retournant deux par deux retrouver 

10 paires de cartes en un minimum de coups. 
Nombre de joueurs: 1 ou 2 participants. Bonne re- 
flexion ! 

Gerard CAUVIN 
ler cas 1 seul joueur: 

20 cartes de couleur jaune apparaissent ainsi qu'un poinleur rouge 
ayant la forme d'un dotgl.ll s'agit de depJacer le pointeur et de le 
posittonrter sur une carte a 1'aide de la manette n* 2. Ensuite, il faut 
appuyer sur le bouton rouge pour (aire relourner la carte. Relaire la 
meme operation sur une autre carle. Si ce sont les memes cartes, 
erles restent affichees 

On recommence ainsi jusqu'a retrouver loules les paires. 
2" Cas: 2 joueurs. 

L'ordinateur demande le prenom en "majuscule" de chacun des 
joueurs. 

11 choisi le ler joueur. 

Les manipulations son! les memes que dans le cas n° 1 . 

Le joueur qui trouve une paire conserve la main, sinon c'est au lour 

du second joueur. 

Les deux cases en haut donnent le nombre de coups reussis pour 

chaque participant, en bas a gauche, le numero de la manette qui 

joue. 

MODIFICATION DES CARTES: 

On peut changer le dessin des cartes (ligne 350 a 580). 

Chaque carte comporte 4 caracteres disposes ainsi: 

1 3 

24 



HARI8*. -0OCOEO70303O&0CO"7i: CALL CHAR(87,- 

1VO OPTION BASE 1 

ZOO CALL CLEAR ;: CALL MAGNIFYfZl 

210 CALL CB.0RU2.4, 121 

220 DIM XC(iO),XT(2I),ITH201 ,XT2f20>.XCt (20) , XF(21 ) , KCO(21 ,3) 

230 GCSUB 1490 

240 CALL SCR££Nf2):: CALL COLORf 1 , 2, 2) : : CALL COLOFU3.3, 16) 

Z50 COMP-1 tt Z-l 

2&o 9«--aoeoeocoE0E0- 

270 C*--FF8O8OBOeO8O80- 

280 D*--80e080eoe080FF- 

290 E*--FFOI01010IOI01- 

300 F»--O10101OtO101FF- 

310 CALL CMARf33,B»>:: CALL CHAR ( 120,C«> .- : CALL CHAR 1 1 21 ,D«> : : 

320 CALL CMAR(122,E»):: CALL CHAR ( 123, F»> 

330 CALL COLORt2,5, 16. 13,3, It, 14, 13, 16,3,6, 1&,&, 6, 16.7,4. 1&,8 2 16) 

340 CALL COLORt?, 10. 16, 10,9, 16, II. 14.16,4.13, 16) 

350 CALL CHAR140. "0203030303030303") : : CALL CHAR (4! , "O3O37FIFOF03O1 • 

Rt*2,"0OOOCDEDF0FECOC0-): : CALL CHARt 43, -C0C0COCOC0C0CO40") 

360 CALL CHARt44,-000000071F3F7F7F->:: CALL CHARt 43, -FFFEC0CO4O6O2018"> : 

HARf46, -OOOOOOOEDFFFFAFC-); : CALL CHAR (47, -FFFE" ) 

370 CALL CHARU2B,"0I03O70703OI070F->:: CALL CHARt 129. -3F3F7F7F7F3F1F07" 

CHAR(i;o.-BOC0E0EOC08OE0FO-l:: CALL CHAR I 1 31 , "FCFCFEFEFEFCFBEO" 1 
380 CALL CHARt 132.-OOOQOOOOOOA16367-)!! CALL CHARt 133, " 67636 1606060" ): : CALL CHA 
Rtl34.-000006040686C6E6'-) j: CALL CHARt I 35. "E6C686") 

390 CALL CHARtl36,-OOOOOOOOOF3A764E"):: CALL CHAR t I 37, ■■63EBDFDFDF70S") ; : CALL CH 
ARf 138,"OOOOOOOOBOFOA8Aa->;: CALL CHAR ( 13?. -4C1F5D6EEC1E1 A" > 

400 CALL CHAR(6O,-CH0307OEOE0703Ol-):: CALL CHARt6I , "01010001030301 ->: : CALL CHA 
Rt62.-BOCOE07070EOCOeO"l :: CALL CHAR (63, "BOSOOOBOCOCOBOOO" > 

4IO CALL CHAR(64,"OOOI03O2O404Oei8") :: CALL CHAR 163, " 1O2O204OCOFF" ) : : CALL CHARt 
6*. -0OBOC04O2020101B"): i CALL CHAR (67, "0B04040203FF- ) 

420 CALL CHAR (60,-6060606060606060"): : CALL CHARt6?,-676F7S70787F67-| :: CALL CHA 
R170. -OO-J 

43© CALL CHAR(7I,-BOCOC04fX:ocOBO"l:: CALL CHAR ( 72, "0O1F3F7F7F7F7F4O") : : 
RI73, -7F670BBD66663C18->:; CALL CHAR (74, "OOEOEOFCF2F IF10F" ) 
440 CALL CMAftf7S,"FFF2E0DFB3B31E0C-> 

430 CALL CHAR(76.-OOOOOOOC3F4I438C"):: CALL CHAR (77, "9294DF7F3FIFIF0F- 
HMt(78,'00OOO0000O84E3O3'lll CALL CHAR (79, - 1E32F4F4FBFBFOE0") 
460-CALL CHAR(80.-r>04A4A4A4A4A4A4A-l:: CALL CHARtBl , "4A4A4A4A4A4A4AOO- ) ; : CALL C 
HAP(B2,-0O2A2A2A2A2A2A2A-> :: CALL CHAR tB3, -2A2A2A2A2A2A2AO0") 

470 CALL CHAR(B4.-0'J33373C38393C37") ;! CALL CHAR '85, "3330303030303000" > : ■ CALL C 
HARf86,"0OCO£0703O3O6OC0-> :: CALL CHAR (B7, "CO" ) 

4BO CALL CMARt88,"0000183C3C3C?E!F-| :: CALL CHAR(?0, "OOOOOOOOOOOOFOF?" I • • CALL C 
MAR(B?,-OF0F'>703Oin!'Jl03-) : : CALL CHAR (?1 , "FFFFFEFCFBF020E0") 

490 CALL CHAR(?2,"010F3F7F?9?lOIOl-): : CALL CHAR193, "01O10 I 0IO1O1O1 ") ! : CALL CHA 
R(?4, "90FOFCFE1911"):: CALL CHAR(?3. "OOOOOOOOOOIO?OED") 

SOO CALL CHAR(?6."00010307080B1010"):: CALL CHAR (97, "307BFCFC7B3O") - - CAI L CHAR! 
98,-80000080601 01 01 B~) :: CALL CHAR (?9, "3C7E7E3C1B* ) 
510 CALL CHARtlO-j, -3844443810101010");; CALL CHAR ( lOI , " 101C1B1CIC18IO10" > • j CALL 

CHAR ( 1 02. " I C2222I C0808080B- 1 
320 CALL CHARt 103, "OB3H 1 03838180808") 
530 CALL CHAR(104,"OOO2'..68E6C7C3C3B-) !: CALL CHAR ( 103. " 1OOB0824343A1F07") . ; CALL 

CHARt I06, "0OOO42666C7C3C39") 
340 CALL CHARt 1O7.-1O2020244C3CFBEO") 
350 CALL CHARtlO8.-O3OF!B3O2O60COCO-):; CALL CHARt 109. ■C1C2446B3O1BOF03" ): : CALL 

CHAR ( 1 iO, "COFOl 80C 1 4264383" ) 
540 CALL CMAft<ill,"030302040C18FOCO") 

S70 CALL OIARtlt3,-00ae680e080e0B08"JIl CALL CHARt l I 3. "0308080S030BOB"! J l CALL C 
HARtl l4."0B08OB08Oe0BOBO8"»ll CALL CHAR (I 13, "08080808086868- ) 
380 CALL CHAR't]6,-000001<>3030700oa-),; CALL CHARt I 17. - 1C3E7F3E1COB" ): i CALL CHA 



CALL CHA 



CALL C 



CALL 



CALL CHA 



CALL C 



R 1 1 1 B . " OOeOCOEOEOFO* > ■ : 

390 REM RECH.MO. SPRITE 

6O0 CALL CLEAR 

610 RANDOMIZE 

620 FDR 1-1 TO IO 

630 *CtIl-INT(RND»20*l> 

640 FOR M=l TO 1-1 

650 IF ICIN1-XC(I)THEN 630 



CALL CHAR (I I <?. "003E3F3E3E3E " 



T \-99 4/ A 



700 
7lO 



I 



XCtXCI til ): 
XT! (I)-XCtl 
XT2f 11-XCf I 



BASIC 



CALL KEY 1 MAM, K.! 



8 THEN 930 



ETENDl) 



IF I-XTtA)lHEN 1 120 



720 FOR I-ll TO 20 

730 FOR t-1 TO 19 STEP 2 :: 

740 FDR 1=2 TO 20 STEP 2 :: 

750 H-l :: FOR 1-1 TO 10 n 

760 N-2 :: FOR 1=11 TO ZO :: 

770 FOR 1-1 TO 20 s: XF<I*I 

XT I 

7BO REM AFFICAGE CARTES 

7?0 REM 

800 FOR C-6 TO 26 STEP 5 :i 

BIO CALL HCHAR(L,C, 120, 1>;j 

B20 NEXT L : : NEXT C 

B30 FOR C-7 TO 27 STEP 5 :: 

B40 CALL HCHARIL.C, 122, 1):: 

850 NEXT L It NEXT C 

860 CALL 50UNb(200,440,0l 

870 REM' POINTEUR 

8BO CALL SPRITE(«1,33,7.96.: 

890 CALL JOYST(HAN,X,Y) 

900 DISPLAY ATt24,ll:HAN 

?IO CALL K0TI0NttI,-Y»2,X»21 

920 GOTO B90 

930 REM RETOURNEMENT CARTE 

940 CALL POSITIONt-l.XA, YA) 

?50 XAl»JNTfXA/40): : YAI-INTtYA/4©) 

960 IF XAl-XA2fC0MR)AND YA1-YA2 ICQMPITHEN 

970 IF XAl-O OR YA1-0 THEN B?0 :: IF XAl>3 OR YA1 >5 THEN B90 

980 IF CPIXA1, YAI)«i THEN 890 

990 CALL LDCATEt»I.XA»20,YA*20) 

lOOO COUPtHAN>=COUP(MAN)*l :: COMP=COMP»I 

1010 CALL SQUND!-2O0, 1175, O, 1047,0.1175,0) 

1020 CALL SOUNDt-200, 1047,0, 1175,0, 1047, Ol 

1030 CALL SOUNDI-20O, 1319,0, 1397,0) 

IO40 L»XA1»S*I :: C-YAl»5*I 

1050 XI-O 

1060 FOR 1-1 TO 5 :: FOR N-l TO 5 

1070 XI-XI4-1 :: IF XA1-I AND YA1=N THEN r.-<[.1 

lOBO NEXT H :: NEXT I :: SP(COMP)-A 

1090 RESTORE 1 1 IO :: FDR 1-2 TO 21 :i READ CAR : 

llOO NEXT I 

1110 DATA 40,44, 12B. 132, 1 36.60,64.68, 72, 76, BO, 84. 8B, 9?, 96, IOO. 104, 108,112, 116 

1120 XCOtA,CQMP)=XT!A) 

1 ]■-■■■ XA2tCOHP)-XAl 

1140 YA2fCOMP)-VAl 

1150 CALL HCHARtL.C.CAR, I):: CALL HCHAR(L«1 .C.CAR* 1 , 1 1 : : CALL HCHARIL.C* 1,CAR»2, 

1):: CALL HCHARIL*! , C*l ,CAR*3, t ) 

1160 CALL S0UND(2O0, 1047,0) 

1170 IF COMP<3 THEN B90 

I ISO IF JOUEUR-1 THEN 1200 

1190 MAN-HAN*! :: IF MAN-3 THEN MAN- I 

1200 IF XC0(SP(2),2)-XC0tA,3)THEN 1270 

1210 XC0tSP(2).2)-O :: XC0(A,3)-0 :: FOR DELAI-1 TO 300 It NEXT DELAI 

1220 Z-Z*l :t L-XA2tZ)»5+l t: C-VA2 ( Z 1 43* 1 

1230 CALL HCHARtL.C, 120,1):: CALL HCHARtL. 1 ,C. 121 . 1 I I t CALL MCHAR IL. C 1 , 122. I ) i . 

CALL HCHAR(L*1,C*I, 123,1):: CALL S0UNDt300, 250.O) 
1240 IF 7-3 THEN 1230 :: GOTO 1220 

1250 Z-l :: COMP-1 :: DISPLAY AI t2,B)SIZE (2) :USING "••" :REU( I I : : DISPLAY ATI2.16 
)SIZE(21:USING "«»-:REU(2) 
1260 GOTO B90 
1270 REM COUP REUSSI 

1280 IF JOUEUR-1 THEN 1290 :: HAM-MAN* I :: IF MAN-3 THEN MAN-t 
1290 REU(MAN)-REU(MAN)»I 

1300 CALL SOUN0I-4OO, 554,0, 587, 0. 659. O): : CAl.L SOUND (-400, 690.0, 784.0,880,01 1 ■ C 
ALL SOUNDt-400.988,0. 1047,0) 

13IO CARTE-CARTE*2 : : IF CARTE-20 THEN 1340 
1320 CPtXA2(2),YA2(2))-l t: CPt XAI . YA1 ) -1 
1330 COMP-1 :i GOTO 1250 
1340 REM FIN 

1350 FOR TEMPO-! TO 300 II NEXT TEMPO 

1360 CALL CLEAR :: CALL DELSPR I TE (41 ) : : CALL CHARSET n CALL MMINIIO! 
1370 IF JOUEUR-1 THEM 1 42© 

1380 DISPLAY AT(S,4I :NAME*(1H" "IR£U(1)|- SONS EN" [COUP 1 1 1 /2| " COUPS" it ntrj-lA 
Y ATI7.4) :NAME4(2)!" "iREUt211" SONS EN" (COUP (2) /2t " COUPS" 
1390 IF REUtl) JREUt2)THEN 6AGNANT4-NAME* t 1 > 
1400 IF REU(2> >REU(I)TMEN GAGNANT«-NAMES t2> 

1410 DISPLAY AT(10,I)BEEP:"C'EST -IGAGNANT*)" LE PLUS FORT" 
1420 DISPLAY AT(16,5):-UNE AUTRE PARTIES tO/N) " 
1430 CALL KEY<0,K,S)I1 IF S-O THEN 1430 
1440 IF tf-tll THEN 1470 

1450 CALL CLEAR l| DISPLAY AT < 12,5) BEEP: "AU REVOIR" 
1460 END 
470 CALL CLEAR II DISPLAY AT t 12.5) BEEP: "UN PETIT [NSTANT- 



I4BO 1 



I 190 



14.10) i-ECHIT PAR G.CAUVIN" 



1490 DISPLAY AT(2.8):"JEU DU MEMORI* t: DISPLAY I 

1300 DISPLAY ATdO,5):"l OU 2 JOUEURS: 1 - 

1310 ACCEPT AT(10,21)BEEP SI ZE t-I )VAL IDATE ("12") : JOUEUR 

1520 IF JOUEUR-1 THEN MAN-2 :: IF JOUEUR-l THEN 1590 

1330 CALL CLEAR 

1340 DISPLAY AT t 10,8) 1 "NOMS DES JOUEURS":" (EN MAJUSCULES) " 

1550 DISPLAY AT f] I ,3) : "JOUEUR NO 1:" :: DISPLAY AT ( 12.5) j "JOUEUR NO 2. * 

1560 ACCEPT AT(U.17):NAME»f ]):: ACCEPT AT t 1 2, ] 7) :NAME* (2) 

!RND»2.I)i: DISPLAY AT t ] 6. 7) BEEP:NAME4tMAN> : "A TOI DE COMMEMCER" ■ "A< 



EC LA MANETTE NO 

1580 FOR DELAI-1 TO lOOO 

1390 CALL CLEAR :: RETURN 



DELAI 
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0990 rem 

699E ecu 

&e*7 REM 
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SPECTRUM 



oseo REM 
eir^o OEM 
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6 339 IF I'll L , * . ■ 

0-34PI 



TO 804 

- " to es 



S3 s 



MeMonxsnrioN c-u cmr* 
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■ g|M W-MIMNT CO 
41-iO POP I -O TO 7 
*Ui9 PQHC I4 1«l ,r iftli 



OiSO MEM 
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%m"a" TMPN LPT 

•■-3" THEN LCT 

B37<B tt INKBV»""4." THEN GO T 

3390 g^ FP •**« 00 TO P.^30 

|*|S PE<! PCITPT IOII5 OWUCh€-Of- 

3-JOO PCM 

6610 CL3 

SSS9 ini-'ii "Ciimiri fclavi. 

•J ijti'i J -' " L irtr e % 

9330 LET n-.*,*.?<?> tF T b«-"" i 

■»R 4 100 

PRIMT HT IO ;7, "Un Ini '»i 

6CS0 L-III •9<e,0j t, in * (O) 

S508 r"QR ( •« jo / LCT »rr*l 



93-30 LCT -j ■INT 

etoo let .-. « . i 

ICIO LET , i i i . 

61i;0 NEXT i 

ftft"*0 Mt- • I 

^•■1P r,r> 5HM .1 -iupt CL5 

*.f!.30 fOt> r -1 TO 8 

99CB LET It '•■■ 

p,cto rots i-l TO O 

6AS& II 1..1 rucu LCT 



6710 POKE >dlW-l,'Jfl 

972© PRINT ftT 11,11, 

9 730 no r r 

9"7d0 PPU3E 100 

9730 GO TO 90P0 

990O PEM 

6310 REM 

SOJO REM 

&Q3S REM 

59*0 PCM 

•5350 REM 

8-390 REM 

3^70 P^M 

O9B0 REM 

."- :,..-■:■ rem 

6990 REM __ 

70O0 OO 5'JB 

7010 PRINT 1MB 

J PRPCR ,5; ••£,,„ 

7020 PRINT 



71930 PRIUT np. i nr 

,,,..,. - 7 . ur PMTEP" 

70d i I" trrt-'Fv*-"- T 



TOEO CLS 

70OO LET K-O 

7969 input "ijr.,, \ B t _ 
intt tV€C - io'ni-" 
7070 IP f •■"©■' •■u . 
T h-=l 
7OO0 PRItIT 



7^0O PRINT M0. "I-TN 



ROUTINE 


CE DCCOOOOE 


EN C/ECI 


M«L DE 


TOUS 


LE5 CRRRCTERe* 


REDEPI 


IIS3RO 


.C5 



<*« <f«COd«9« 



7«J0 to suet 4.v»00 

7240 GO TO 7100 

MOP 5TOP 

9009 Sn'.'E "rtEOEriNCR" 



1, INK 4 



Pfl'EM 1 ; '« 
OO TO 704 



I. IBP 

" ,;„•„ 



" T I ' ' 



r h THEN LPRlflT 



-. i m . » v l ■ ' - ' , l j. r 

71 10 LET 9-7100 



d«COd€r 4 

'■■' . * l -. ■ '" GO 3 



b*-L.*.«* 1 



' 90 SUB 4 390 

/ 1 'i-> PRlNI ••»,"-" 

7149 TP h THEN (..PRINT 

; i ■ 00 BUB 4309 



870P NEXT 



SOLUTION DE L'HIPPOREBUS : 


10 FOR I-l 10 1 


$k 


20 READ I 


fc=^3J 


30 PRIST CHRl'IK 


/7\ 


10 KOI I 


MLTn 


50 EM 


^Hjof 


60 DATA 69,73,77,69, 


tSs 


78,83,73,79, 


1 


78 


1 ■ 



14 



MONSIEUR X 



Voici pour le ZX 81 muni du module 16K un pro- 
gramme daventure. 

II s'agit de retrouver un document code ainsi que le 
code permettant de le decoder, lis sont tous deux 
caches dans une bien mysterieuse demeure, celle de 
Monsieur X, Une fois ceta fail, il taudra en sortir. 

Christian REMY 
Hensetgnements pom "Monsieur X": 

les pieces soot vues du sud saul indication conlraire. les comman- 
des son! do 1 ou 2 mots, pour utiliscz les moyens de locomotion 
■ENTRE'. 
Vocabutaire: 

Prend. Pose. Ouvre, Force. Entre. Sitfte. Enleve. Nord. Sud. Est. 
CXtest, Commode, Caisse. Boite. Coftre. Dalle. Invenlaire. Chasse. 
Code. Clef. Document. Bottes. Sitttel. Carte. Bijou. Trappe, Intro- 
duis. Donne. Singe. Gants. Saute. Barre. 



Z*8A 



a ooto aeaa 

1* DIM 0»(9.9> 

13 LET 0-0 

20 LET 0«(1) -"3BARRC" 

30 LET 0113) --PSIFFLET" 

*0 LET 0»<3) - ■3BOTTE3 " 

69 1_CT Of (6) -~6C«NT3 " 

78 LET 0*(B» --9CO0E'- 

75 LET Oil*) •-PCftRTE PL." 

76 LET 0«(7) •"PDOC.COOE" 

77 LET 0«10> --PBIOQU" 

78 LET 0l*9l •"7CLEr" 
33 LET 3*1 

85 LET J«0 

99 GOSUB 9490 

100 3L0U 

130 GOSUB *»0«fi3t508) 

280* IF A»o"NORO" THEN GOTO 20a 
9 

2801 LET T«3 

2892 IF 3-3 THEN LET T.« 

S003 IF S-* THEN LET T-6 

209* IP 5-1 THEN LET T-a 

2985 IF 5-5 THEN LET T-7 

200B IF 5-7 THEN GOTO 3010 

2007 LET 3-T 

2808 GOTO 99 

2828 IF ftfo'SUO" THEN GOTO 2010 

H81 LET f.B 

2032 if 3-i then goto 3020 

2033 IF S-2 THEN LET T-l 
202* IF 5-4 THEN LET T-a 
2035 IF 5-7 THEN LET T.S 
2038 IF 3-6 THEN LET T-* 
2927 LET S»T 

2828 GOTO 90 

204.0 IF Afo"EST" THEN GOTO 2068 

20*1 LET f«5 

20*2 IF S-* THEN LET T .8 

20*3 IF 5-5 THEN GOTO 3030 

20** IF 5-7 THEN LET T«B 

20*5 IF 5-3 THEN LET T-a 

28*8 IF T-B THEN LET Gt-"U0U3 ET 

ES DRNS UN EG0UT." 

30*8 LET 5-T 

2058 GOTO 90 

2868 IF Afo"OUES" THEN GOTO 306 



3061 IF 5-2 THEN LET T-3 

30B2 IF 3-* THEN OOTO 3030 

2063 IF 3-6 THEN LET T-7 

398* IF 3-9 THEN GOTO 3809 

2885 IF 5-6 THEN LET T-* 

2066 LET 3-T 

2967 GOTO 90 

2889 IF Rfo'-pREN BARR" THEN GOT 

2100 

3882 LET J-l 

2100 IF ««<>"PREN SIFF" THEN GOT 



THEN GOTO 2 



o aiao 

3101 IF 01121 (1) 

780 

2102 LET J-2 

2130 IF Afo"PREN BOTT'- THEN GOT 

21*0 

2121 LET J -3 

21*0 IF Ato"PftEN CART" THEN GOT 

2160 

21*1 IF 0t<*> 111 -"P" THEN GOTO 3 

7B0 

■3 1*2 LET J.* 

3169 IF Rto-PREN GANT" THEN GOT 

3 100 

3161 LET J-« 

2180 IF Afo"PREN DOCU" THEN GOT 
2300 

2181 IF 0fl7> (1) -"P" THEN GOTO 2 
780 

2182 LET J-7 

2280 IF Ato'PREN CODE" THEN GOT 
3230 

2201 LET J -8 

2228 IF A»o"P0SE BARR" THEN GOT 

22*9 

2331 LET J-l 

22*9 IF Ato'POSE SIEF" THEN GOT 

3260 

3269 IF^RfO'-POSE BOTT- THEN GOT 
Q 2269 

2268 IF^AfO-POSE CART" THEN GOT 
2398 

2281 LET J-* 

2308 IF Ato'POSE GRNT" THEN GOT 

3339 

2391 LET J«5 

3328 IF Ato"P03E CODE" THEN GOT 

23*0 

23*8 IF A*o'P03E DOCU" THEN GOT 
2360 

2360 IF^RIlTT-ENLE OP.LL" THEN GOT 
3380 

2361 IF Sol THEN OOTO 3380 

3362 IF Rill -9 THEN OOTO 30*© 

3363 LET ft (12) -1 
336* IF 00(7) (11 ■"I 



"0" THEN OOTO 9 



3363 GOTO 3059 _ „„, 

2388 IF «to"0UVR COHM" THEN OOT 
2*09 
2381 IE 3<>2 THEN GOTO 2*90 

II?§ kFoStlr'<lF.-«- TM« GOTO 9 
339 

§2IS S r 8,7?»*uuR ma- th C n got 

a 3*39 

3*81 IF So3 THEN OOTO 3**0 

3*02 IF ft (11-0 THEN GOTO 30*9 

3*03 GOTO 3070 

3428 IF Ato'OUUA TRAP" THEN GOT 

3*21*IF SO* THEN OOTO 3**0 

SSI I? T «0"ENTR- THEN OOTO 2*6 

3**1 IF S()8 RNO So* 0N0 SO© T 

HCN GOTO 2480 _ _ 

2**a IF 3-* THEN GOTO 3990 

3**3 IE 3«8 THEN OOTO 3099 

a*** IF 3-8 THEN GOTO 3193 

3*60 IF fl«o"3fiUT" THEN GOTO 3*8 
9 

2*61 IF 11)9 THEN OOTO 3768 




2*63 OOTO 3190 

2*80 IF Rto'CMftS 3INQ" THEN GOT 

3590 

2*81 IF flliei.l THEN OOTO 2760 

2*82 LET ft 110) -1 

2*63 GOTO 90 

2580 IF HtO'SIFE" THEN GOTO 3S2 


2S01 IF S<>8 THEN GOTO 3210 

2329 IF ftto"F0RC CftIS" THEN GOT 

2540 

2531 GOTO 3*01 

25*8 IF Rfo"PREN BIJO" THEN GOT 

2569 

23*1 IF Ottei (1) -"P" THEN GOTO 2 

780 

25*2 LET J»B 

2560 IF ftto'POSE BIJO" THEN GOT 
2560 

2561 LET J-8 

2388 IF fttO"P0RC BOTT" THEN GOT 
3600 

2581 ir BOB THEN GOTO 2780 
3382 GOTO 3150 

2698 IF ftto"PREN CLEF'" THEN GOT 

2629 

3691 IF 0t<9> (1)-"C" THEN GOTO 2 

7B0 

2602 LET J -9 

2628 IF AtO"P05E CLEF" THEN GOT 

26*3 

3621 LET J-9 

25*0 IF AtO"F0RC COFF" THEN GOT 

2660 

26*1 IF So7 THEN GOTO 2780 

26*2 IF ni5)-0 THEN OOTO 3121 

3643 GOTO 3125 

3668 IF AtO'"F0RC COHH" THEN GOT 

2680 

2661 OOTO 2381 

2799 IF ftto'INUE" THEN GOTO 272 



■■PRCN" THEN G 



2791 GOTO 9*75 

3780 IF At (1 TO *) 

0T0 9370 

2781 ir fitd TO *) -■POSE" THEN 

0T0 9**0 

87*0 IF RtO"0UUA 80IT" THEN GOT 

3769 

27*1 IF 3<>5 THEN GOTO 3789 

87*3 IF 0(131-1 THEN GOTO 2789 

27*3 IF R(9)-9 THEN GOTO 3769 

27** LET ft 1 131 -1 

37*5 OOTO 3130 _,„ 

2760 IF Ato"QUUR COFF" THEN GOT 
2779 

2761 IF 3<>7 THEN GOTO 2700.,,. 
3762 IE A(9>-9 THEN GOTO 2780 
2763 ir h(SJ-8 THEN OOTO 3121 
2784 GOTO 31*0 

B780BPRINT AT 21,9; " IMPOSSIBLE . 

TOU DZTE3 AUTREMENT)" 

3790 PRUSE 218 

2793 PRINT AT fil.0;"., 

2099 RETURN 

3010 LET Gi-"U0US TQHBEZ DANS LE 

UIDE ET UOUS U0U3 ECRA3EZ.." 
3013 GOTO 9889 

3888 IF A (61-0 OR ft 17) -0 THEN GO 
TO 3025 

3021 LET G«-"BRAU0,U0U5 AUEZ REU 
SSI. . ." 

3022 OOTO 9500 

3025 LET Gt-"UN PEU DE COURAGE U 

OYONS . . " 

3886 GOTO 90 

3038 LET G»-"LE FOUROON UOUS ECR 

flSE 

3935 GOTO 9599 

3849 LET Gf-"AUEC OUOI ?" 

39*1 GOTO 90 

3030 LET 0»(7) (l)«"i" 

3081 LET GI-"U0U3 TAOUUEZ UN 00C 

UHENT COHPRO-HETTRNT HAIS CODE . " 

30S2 OOTO 99 

3060 LET 00 I*) <1) -"3' - 

3061 LET GJ-"A L" " INTERIEUR IL Y 
A UNE CARTE PLASTIFIEE." 

3962 GOTO 99 

3979 LET OJ«" IL N Y A OUE OE3 80 

UTEILLE3 OE COCA. MAIS DES GARDE 

3 UOUS ONT ENTENDU5 ET UOUS ABRT 

TENT." 

3071 GOTO 9500 

3088 LET CI." OES DIZAlNES OE T 

UEURS FANRTI-OUES 0E80UCHENT EN 

HURLRNT. . ." 

3081 GOTO 9890 

3090 CLS 

3091 PAINT "LE FOUROON 3""EST MI 
3 EN HARCHE. .SOUDAIN UNE PETITE 
HACMINE MUNIE D""UNE FENTE ET D" 
"UN UOYRNT OUI CLIGNOTE RPPARRIT 

3802 PRINT AT 118 5, " ,l M|B 1 J r| ? T 1 

3093 pfffNT*'A+ 19, §,'"(•' 

3094 PRINT AT 10, Si 
3893 IF INKEYf."" + 
3096 003UB 9330 
3897 IF AtO'INTR CART" THEN OOT 
3160 

3998 CLS 

3999 LET C«-"LE FOUAGON REPRRT . . 
PUIS S""RRRETE OE NOUUEAU" 

3199 IF S-4 THEN LET T-8 
3191 IF S-B THEN LET T-* 
3193 LET 3-T 
3193 LET T-9 
319* OOTO 99 
310B CLS 

3106 PRINT " LA 6AR0UE EST CNOAI 
NEE PAR LE CQUPAnT HAIS ELLE S" 
•RRRETE DEUANT Lft GRILLE." 

3197 FOR F-10 TO 18 

3198 PRINT AT - 
12,9; "O" 

3199 NEXT F 

3119 00SU6 9320 „„ „._ 

3111 IF A0O"5IEF" THEN OOTO 318 


3112 IE Atai-0 THEN OOTO 2780 
311* roR F-16 TO 10 STEP -I 

3115 PRUSE 29 

3116 PRINT AT F,10, " 

3117 NEXT P 

3118 LET S-9 

3119 LET 0»-"LA GRILLE S""E3T OU 



OOTO 3893 



URTE ET UOUS RUEZ RUflMCE . " 

3120 GOTO 90 

3121 LET Ot-"LE COEFRE ETAIT ELC 
CTRIFIE. . . " 

3182 GOTO 9300 



ESTOMAC" 

3126 GOTO 9300 

3130 LET 0| (8) II) ■•'6" 

3131 LET Ota'UOUS OECOUUREZ UN M 
AGNIFIOUE BI-JOU." 

3132 GOTO 90 

31*0 LET 0«I9) (II •"C" 

3141 LET A(9) -4 

31*3 LET Ot-"LR CLEF 3""E5T COIN 

cee. . . 

3143 LET 0-0-1 

3144 GOTO 90 

3189 LET G«." DEUX LAHE5 DE RR30 
IR 0EANTE3 S""ABATTENT 3UR UOUS. 

3131 GOTO 9399 

3169 LET Ot-"LE SYSTEME 0"'fiUTO- 

OESTRUCTION DU FOURGON EXPLOS 



3161 GOTO 9599 



317B GOTO 9588 

3188 LET Qi-"LA BAROUE UOUS EJEC 

TE DANS L""EGOUT OUI EST RE 

MLI D""ACIDE. . ." 

3181 GOTO 938B 



3195 GOTO 9580 

3298 LET Ot-"UOUS EMERGEZ DE LA 

COMMODE. ." 

3201 LET 3-2 

3205 GOTO 90 

3210 LET 0«-"DES GARDES UOUS ENT 

ENDCnT ET. . ." 

3215 GOTO 9580 

3820 LET QM H C""EST OEJR FAIT... 

3239 GOTO 90 

4508 PRINT AT 18,0; "U0U5 ETES OR 

NS L""ENTREE . " 

4585 PRINT "LE SOL EST DALLE." 

4310 FOR F-12 TO 16 

4520 PRINT RT F,9;"|";AT F,13;"| 



4330 NEXT F 

*340 PRINT AT 15,3; b^ mt ^^^ 

TS5T J PRlNT 1 A+ 5 i7'.9; 'ViRrnPTfw; 
■•J":at 15,9;"L";at 13,9; "L" ; AT l 
3,13; "J"; AT 13, 13; "J" 
*560 G0SU8 9180 
4579 GOSUB 9330 
4600 GOSUB 9330 
4689 GOSUB 3000 
*6*0 GOTO *S80 

5008 PRINT AT 18,9;"IL Y""A UNE 
TABLE ET UNE C0MH0OE." 
5818 G05U8 9180 

5838 PRINT AT 18 , 16; " f*" ; AT 13, 
^••;AT 13, 

$$~ 

38*9 GOSUB 9269 

5858 IF A 1 101-0 AND 0(1*1-8 THEN 
PRINT ftT 19,0; "UN SINGE UETU UO 

us surr.- 

5969 GOSUB 9239 

5980 G0SU8 9320 

3090 GOSUB 2909 

5180 GOTO 3060 

S590 GOSUB 9300 

5310 PRINT OT 18,0, "IL Y ft UNE G 

ROSSE CRI53E." 

5338 IF AUl-0 THEN PRINT AT 12, 

1 -0 THEN PRINT AT 12, 



5560 GOSUB 9230 

5588 GOSUB 9320 

5598 GOSUB 2008 

5698 GOTO 5368 

6808 GOSUB 9160 

6818 GOSUB 9280 

6828 GOSUB 9308 

6839 — 




Ml Aa X*™*^J 

6939^rT:nT RT 18,0;™ Y A UN FO 

URGON MUNI D""UN MO- TEUR."; 

6868 PRINT " IL Y A UNE TRAPPE." 

6062 PRINT AT 30,0;"IL Y A UNE P 

ORTE Au NORD." 

6863 003UB 9230 

6878 GOSUB 9328 

8880 00SU8 2000 

6898 OOTO 6079 

6S90 GOSUB 9180 

6510 QOSUB 9300 

6320 PRINT AT 18,9, "IL Y ft UN FO 

URGON AftRETE." 

6539 PRINT AT 19,9, " IL Y ft UNE G 

ROSSE BOITE EN BOIS." 

6340 PRI( — 




; AT 13 , 



n 5 U 

637GG0SUB 9238 

6388 GOSUB 9330 

6598 GOSUB 2808 

6608 GOTO 6860 

7098 GOSUB 9360 

7810 PRINT AT 12,14; "-J". 

13; " JH ";RT 14 , 13; " It* ■•; at is, 

7080 PRINT AT 18,0; "IL Y fl UNE P 

ETITE TABLE." 

7025 PRINT AT 19.0; "IL Y ft UNE P 

ORTE AU SUO." 

7038 IF ft (31-0 THEN PRINT OT 13, 

8, "YY" 

70*8 GOSUB 9238 

7838 IF A (101-0 AND A (1*1 -9 THEN 

GOTO 7100 
7969 GOSUB 9329 
7979 G0SU6 2009 
7989 GOTO 7060 
7109 PRINT ftT 0,0, "LE SINGE SORT 

UNE TIM8RLE EN SEMBLANT DEHANOE 
R OUELOUE CHOSE." 
7108 GOSUB 9320 

7130 IF AtO"D0NN BIJO" THEN OOT 
3170 
7136 PAINT ftT 81,0, " 

LE SINGE UOUS 



ETRRNOE SIFFLET 



i -"e" 



ft UN CO 

mmZftrr 19,3; •■ 



7137 PRINT AT i 

REMET ALOR3 UN 
PUIS DI3PATAIT. 
71*0 LET Rll*) 
71*1 LET 0-0-1 
71*3 LET 0*(2) 
71*3 LET OilB) 
71*4 LET ft (8> -4 
71S0 OOTO 70*8 
7S08 GOSUB 91B0 

7319 GOSUB 9309 

7320 PRINT AT 16,0; " 
FFRC FORT." 
7B3B PRINT AT 

■Ttat 13, fi;" 1 ", 
78*0 003UB 9230 
7SB0 003UB 9330 
7SB9 GOSUB 3900 
7370 OOTO 73*0 

8910 003U0 9300 __„_ 

8929 PRINT AT 16,0;"CETTE PIECE 
EST UUE DU NORD.IL Y A UN HICRO 
A COTE OE LA ORILLEUNE BftROUE E 
ST SUfl LE OUR I." 
8939 PRINT AT * 

jJHTfiT 11,9,'', 

B03S PAINT AT w.o, u 

BB48 PRINT AT lS,19; fl _ 



I ..ERIHI i 



1 TABLE 0-EOU I VALENCE 


1 OES CAt^CTERE^ 


INVERSES 


1 OrTPE Z»S1 ET 


[irviHnHTE 


SEIKDSHA CPIOAA 


CAPflCiE?? ;:■■ 


CAPACTERE CTI*en 


• iwepse 




e l^/EPSE 


t 


» IHVEtfSE 


I 


t^rtpse 




» i^rtPSE 




' INVEPSE 


( 


> iNVEPse 




> INVERSE 




< INVERSE 




- IMVERSE 




* INVERSE 




- INVERSE 




< INVERSE 


• 


' INVEPSE 




. IMVERSE 




. IMVERSE 




. INVERSE 




8 INVERSE 




1 INVERSE 


4 


2 INVERSE 


a 


3 INVEPSE 


4 


4 INVERSE 


1 


5 INVEPSE 


1 


6 INVERSE 


& 


7 INVERSE 


a 


8 INVERSE 




9 INVERSE 


c 


A INVERSE 




B INVERSE 


b 


C INVERSE 


c 


D INVERSE 


d 


E INVERSE 




F INVERSE 


f 


G INVERSE 


9 


H INVERSE 




I INVERSE 




J INVERSE 




K INVERSE 




L INVERSE 




M INVERSE 




N INVERSE 




INVERSE 




P INVERSE 




Q INVERSE 




R INVERSE 




S INVERSE 


1 


T INVERSE 




U INVERSE 




V INVERSE 




y INVERSE 




X INVERSE 




Y INVERSE 




Z INVERSE 


r 



at^^^; 

8043 PRINT P.T 



12,1* 



13J "MB'Tat ii.l*; "ifc'TAT 

805B a 6oSUB 9230 

8068 GOSUB 9330 

8070 GOSUB 3009 

8088 GOTO 8050 

8508 GOSUB 9300 

8510 PRINT AT 18,0;"CETTE PIECE 

EST UUE DU NORD. LE BRTEAU UO 

US A EJECTE SUR LE O UR I DROIT." 

B52 B PRJ NT AT 12 , 19j_JJtj.AT 13, 



2^1. 

8330 GOSUB ' 9238 1 

83*9 GOSUB 9320 

8550 GOSUB 2000 

8569 GOTO 85*9 

9900 FR3T 

9002 CLS 

9005 PRINT RT * ->■»■■• f , , , 

ie!5 P'rJn^at S.er'a^B^^^M 

9'838 PR! NT AT 11,6. ■■ l« ^>^_^ •• 

9085 LET X-fi 

9036 LET D-l 

9038 FOR F-9 TO 19 

9858 PLOT X,F 

995B IF D-0 THEN GOTO 9098 

9969 LET X-X*l 

9979 NEXT r 

9071 IF 0-8 THEN GOTO 9110 
9073 LET 0-0 

9980 LET X-43 
99B1 GOTO 9038 
9090 LET X-X-l 
9100 OOTO 9070 
9110 FOR F-4 TO 19 

9120 PRINT AT F,6;"| I" 

9138 NEXT F 

91*8 FOR r-* TO 16 

9158 PRINT AT F,9,"I",AT F,22;"| 

9169 NEXT F 

9161 PRINT AT 9,0;GI 

9162 LET Gt-"" 
9179 RETURN 

9189 FOR P-7 TO 19 

9190 PRINT AT P,10;"fM" 
9200 NEXT F 

9210 PRINT RT 11,19,"JBb»" 

9213 PRINT AT 9,19, , 'FJ n 

9320 RETURN 

9230 PRINT AT 3 , 23j "08 JETS : " 

9240 FOR E-l TO 9 

9230 IF lOtlFl (1>1-3TR« S THEN P 

PINT TAB 23,0t(F) (2 TO ) 

9869 NEXT F 

9370 RETURN 

9299 PRINT AT 9 . 4 , " J" , AT 18.3, "J 

i",AT 15,3. "J", At iT.fi; " Ml"; at 

Taj;- ■■",«/ 13,8; ^lH";" i*.a 

9390 RET... . 
" [00 PAINT ftT 
L" ; ftT 11 , 18 

■ i fiT l3 .i 10 i'" 
,ftt 15,20,"l 



sal* 



9, 16, "fc"; AT 10,18. 

,_Jjp ■■; at ia,ieJB 



SSlLET fi|-A«*t"UO" AND RI-"S" 
("QRD" AND A»»"N") ♦ i"UEST" RND 



9538 



RND 
AND AI-'C'i 
IF LEN AtU3 THEN LET At-At 



13 



OR A«-"CST" TME 



9 3 36 IF fit-' 

N GOTO 9339 

9337 IF LEN A«<* THEN OOTO 9330 

9339 PRINT At 

93*0 IF LEN Af<4 THEN RETURN 

93*1 IF LEN Aj<9 THEN OOTO 9361 

93*8 FOA 0-1 TO LEN Al 

9343 IF At 10)-" " AND LEN At ID T 
) >4 THEN OOTO 9346 

9344 NEXT D 



At-Atd TO 4) 



+At(D* 



9360 RETURN 

9361 LET fltrt., 
9368 GOTO 9365 
9370 IP J-0 THEN GOTO 8709 
9378 IF UAL Oi(J) (11 OS THEN 
8740 

9373 LET 0-0»l 

9378 IE 0>4 THEN OOTO B410 

1§! tpsyvii" •"•■• 



Suite page 16 



PUISSANCE 4 



Voici une adaptation BUT ORIC du celebre jeu de Puis- 
sance 4. Les regies ainsi que la facon de travailler du 
programme sont compris dans celui-ci. Et tenez-vous 
bien, i! passe sur Atmos sans aucune modification! 
Lorsque c'est i'ordinateur qui joue le premier, il est tres 
tort... 

Christophe TAJA 




L10 rem 

i» oosue -ire rem regle cls 

IW [>IMft'5-7>.(XI3>.Y(9> 
148 PR1NTCHRV6). RRINTCHRV 1?'. 
|« G08U6 330 REM INITIALISATION 
160 GOSUB 650 RE* DES8IH GRILLE 

ire PRIHT PRINT"»OULEZ-VOUS JOUER EH 
PREMIER" 
189 RERERT 6ETW» UNT1LU**-0"0RU»="N" 

c£s 

1» lFW»=-0~ THEN 265 REM JQUEUR JO 

It 
299 

210 Gosue szo rem l ordi joue 

229 IF SM-6 THEH 250 REM ORDI QfiCNE? 

239 PI NG PPINTPRINT- AAARHHH 

HH " UAIT500 G0SUB2849 REM GAGHE 

R ORDI 

240 GOTO 349 REM PI" DE PARTIE 
259 IF G-0 TMEN339 

249 GOSUB 939 REM JOUE'JR JOUE 

279 cosue uoe rem joueur gagne ? 

289 P-l G0SU6 1929 
299 IF W3>=9 THEN 329 
399 ZAP PRINT PRINT" J'AI PEP 

DU" MAIT308 
31fl GOTO 349 
329 If GO0 THEH 298 

339 PRINT PRINT" PARTIE HUE 
LE" MAIT499 

340 A»«rEY» PRINT PRINT PRINT PRINT" 

VOULEZ VOUS REJOUEP" GETR* 
359 IF »<>*N" THEH RUN 130 
369 TEXT PAPERO INK? 
379 PRINT PRINT" AU REVO] 

R- GOTO370 

399 REM 

409 REH INITIALISATION 

419 REM 

429 PEM*===»=="=="-====-=== ======== 

439 G-33 REM G=35 CASES 

440 FOR I=>1 TO 7 V I )»5 MECT 
450 REM DEBUT POHDEPRTION 
460 RETURN 

479 P£H"«* = «= ========= ===== = ====■=- 

439 REM 

499 REM PE6LE 

590 REM 

510 REH="=«-= ========== ====== = ===== = 



520 REM 

530 PAPER3INK4 

549 CLS PRIHTCMR*'6> PR INTCHP*' 1 7 > 

550 PRINT PRINT PRINT" PEGL 
E" 

560 PRINT PRINT PRINT" IL PRUT A 

LIGNER 4 PIOUS" 
570 PRINT PRINT" -VEPTICALEMEHT 



-H0R120NTALEME 



580 PRINT -PRINT" 
HI- 
530 PRINT PRINT" -EN D I AGONAL E" 

690 PRINT. PRINT" VOUS CHQIS1SSEZ LB 
COLOHHE" 

StO PRINT PRINT" LE PIOH DESCEND DflNS 
LR PLUS BASSE" 
620 PRINT'PRINT" CASE POSSIBLE 

630 PRINT PRINT PRINT" PRE33EZ ONE TO 
UCHE PO<JR COMHENCER"; GETR* 
640 IF A*<>"" THEH RETURN 

659 REM*— «»-—=»==============«= 

660 REM 

673 REM DESSIH GRILLE 

680 REM 

6W REM= = = ==" = = «-« === a == ===*==-==»= 

709 REM 

710 PRINTCHP*' 17> PPINTCHR»<.6> 
728 HIRES'PRPEP7;INK2 

730 FOR 1-1 TO 7 CURSET28+30*<I-1),2 
0,3 CHRP 48*1 ,0.1 NEXT RRIHTCHRS: 17> 

740 CUR3ET15.35.3 DPAU210.0, 1 DRAU0. 1 
59 . 1 : DRAW-210, 0, 1 = DRAU8, -158, 1 

750 'REM TRRCE DE3 CERCLES 

769 FOR 1=30 TO 210 STEP 30 

770 i FOR J=50 TO 170 STEP 30 
730 = CUR3ET I . J . 3 CIPCLE12. 1 
790 NEXT 

899 NEXT 
210 RETURN 
320 REM============================== 

830 REM 

840 REM L'OPDIHhTE'JP JOUE 

350 REM 

870 REM 

880 CLS : PRINT ■PRINT" PRTIENCE JE COG 



lie .... ii), i !lt i, 

129 i || in.. 12 i+ll <'■• . || ,,- : ,.,,,, 

"• 2 ■•'•■■> ". i "" i ■-."!«: 

•I'M r ti W ■ r-M Ml). RMt> I ■ ■ ■ ri'f 

ii m=t xm*x in*™ 12> 
■ ■ti.' HBO 
.',. ;■ ii 

960 R=-1 GOSUB 1929 
.,-n RE rURN 

989 PEM=-=== = '==-========= c ===-:==^= : .= 

990 PEN 

1090 PEM LE JOUEUR JO'.iE 

1910 PEM 

1920 PEM=-== = = = = == = = -" = = -= = - ! =^ = ^ = = - === 

1930 REM 

1040 REPENT 

1050 CL-i. FPINT fl*a*EY* 

1069 PRINT" COLONUE ?" G 
ET R* CLS 

1070 X=VHL'H*J 

1080 IJNTIL X<=7 AND X/0 AMD VX)>9 

1050 PETUPN 

1 100 REM============*========*======= 

I 110 PEM REFLEXION 

1120 PEM============================= 

1130 FOR 1=0 TO 15 9' I )=9 NEXT 
1140 P<X^=0 T=9 Y>=Y(X) 
1150 REM COLONIC PLEINE 

1169 IF Y=0 THEN QU2>=-I RETURN 

1 1 79 REM 

1180 PEM VEPTICRLE HAUTE 



1190 IF Y=5 THEH 1280 
1200 3=0 

1210 FOR J=l TO 4 
1220 S=S+FKJ,X) 

1239 iNEXT 

1240 '{K8MKSH1 

1250 PEM 

1260 REM VERT1CRLE BASSE 



1270 IF Y=l THEN 1330 

1280 'S=9 

1290 'FOR J=2 TO 5 

1309 S=S+A<J,X> 

1310 'NEXT 

1329 '0XS>=DXS>+1 

1339 IF X>4 THEH 1460 

1340 REM 

1350 REM HORIZOHTHLE GRUCHE 



| FOR D=l TO X 

'S=0 

' FOR I=D TO D+3 

'■ S=S*fl<Y.I> 

i NEXT 

W$->=0(S>+1 

NEXT 

G0T01339 
REM 



ITE" 
890 I 



1410 
1429 
1439 

1440 

1450 

1469 
1470 



1510 
1520 
1530 
1549 



^-1 
I FOP X=l TO 7 



■■ FOR 1=0 TO 0+3 
i S=S+fi<Y,I> 

NEXT 
• (KSMKSH1 
'NEXT 

REM 

REM DIRGONRLE Hfl'JTE MOHTRNTE 

fl-X+Y 

IF Y=5 OR fl>8 OR ft<5 THEH 1650 



1580 FO* '! '" 4 
I5M r^R-j 

1699 ?=S*R' J. I ■ 

1610 NEXT 

1620 O'S ■=',"'? -*1 

16 i' PEN 

1*40 PEM C'lROOtiRLE BRS'E Mr»n»OE 

[659 IF Y»l OP FK6 OR h-.- rHEH 17 8 

Il ■ a 

1678 FOP l»2 to 5 

I680 [-ft- J 

1699 ' " *fr .<■ I ■ 

1700 NEXT 

1/1" (KSMKSH1 

1720 fi=X-Y 

1730 IF V=5 OR fl Off H'J THE'i 1849 

1740 PEM 

1750 PEM t'I0GO"RLE HWTE f €SC EK^tlTE 

1760 S=9 

1770 FOP J"l TO 4 

1789 I=R'J 

1799 a-s**Kj.n 

1800 HEX! 

1810 GKS>QCS •+! 

1820 REM 

1830 REM OIRCOHRLE BASSE t-ESCENORMTE 

1840 IF Y=l OP Pi'-I OR R-2 THEN 1910 

1859 8=0 

1360 FOP >2 TO 5 

1379 I=fl*J 

1388 3=S*RT J, I > 

1899 NEXT 

1900 KSHX8HI 
1910 RETURN 

1920 PEn========"="=====""="=-" 

1930 PEM DESSIH W PIOH 

1940 RD l " ' "" ■ "■ ■ ■' "— 

1950 CLiRSET38+30*':X-l ^.59»30t' Y'X>-1 > 

1 

1960 IF R=l THEN PATTERN 85 

1979 FOP 1=1 TO 12 

1989 CIRCLEI. I 

1990 NEXT 

29O0 PRTTEPN 255 
2018 (KV(X).XW 

2929 Y< X )-V< X >- 1 G=G- 1 

2039 PETIJPH 

2040 RC» ■ '■ ■■'■ ■■■■"■ 

2050 REM RFFICHE J'RI GAGHE 

2869 REM=== =«»■=» *=•=«» 1 1 .■■■■ ■■-«■■■■ 
2970 ZAP MA I T50 ■EXPLODE 

2930 TEXT = PRIHTCHR»< 17) -PRINT PRINT P 
PIHT.CHP*'4).CHP»':27>-N HOI 
OPIC 1" 

2090 PRINT PPINT PPIHT PRINT PRINT 

2180 PPIHTCNPV2?)"J J'RI LE DEVOIR D 
E ■■/OUS RNNOHCER* 

2110 PRINT PRINT PRIHT PPIHT. CMRV 27" 
-J OIJE VO'JS PA/EZ " PRIHT 

2129 PRINT : PPINT 'PRINT PRINT PPIHT. CH 
P*' 27 >"N PEPDU- PRINTCHPV 4 



ri40 RETURN 

ov^ cA 



+ 



Suite de la page 4 



516 R£rt«TEST EOULLETS* 
^17 REW ■ ■■■■■■ ■ ■■ ■ — ■ 
513 REM 

513 REM««*KJULLET 1«M 

529 RC+E7791.96 I FP=40THENDP=DP+ I IFDP>lTHEHD-22 OOTO170 

521 IFP=46THEHT=T-D-D»-I -P-48-GOTO170 

522 IFR=390RP=53THEND=1 T=7790 OTTO 179 

523 IFP=49THEN170 

524 IFPO33THEH2000 

535 P=48 T=T-D D=l GOTO170 

538 PEH 

539 R£KM«80ULLET 2*«* 

540 IFP5=40THEII&P5=LR5*1 IFDP5>1 THEHD5-22 00T0139 

541 IFP5=390PF5=53THEND5=1 T5=7799 B5=l :N5-INT<RMKl)«e) 

542 jFP5=40TH£H199 

543 rFP3-4CTHEHT5-TS-D5 D5=-l P5=40. OTTO190 

544 IFPS'lySSTHElliaOO 

555 R5=40 T5=T5-D5 D5=l GOTO 199 



< REM**«B'J1JLLET 3*** 
j IFPS=49THENfiOTO2i0 
IFP6-OT0RP6-fl3THEHD6-l T6=7790 1 



563 1FP6«44THEHT6=T6-D6 D6— 1 QOT0S73 

564 1FP6O33THEH2000 

565 IFD6=10PD6=-1THE(»T6=T6-D6 C6=22 0010575 

566 T6-T6-06I>6=1 

578 IFP6=49THENGOTO210 

575 P6=96 0OT0218 

578 PEH 

579 PEM*»*EOULL£f 4»»* 
560 IFP7=49THEHGOTO230 

581 IFP7-390PP7=53THfcHD< , =l r7"7799HB7»l N7-IHT<RHD< 

583 JFP7*44THEMT7=T7-D7 1)7*- 1 OTT0595 

584 IFP7<>33rHEN2989 

585 IFD7"10RD7=-lfHEHT7=T7-b7 D7«22-OOT0599 

586 T^=T7-L7 D7=l 
595 P7=96 0010238 

598 REM 

599 REM»*»BOULLEf 5*** 

689 IFP8'40OPP3=5iTHtli'.'UrO250 

691 1FP8-39THEHD8''1 T3=7790 &8=1 N8=>lhT<PHD' 1 j1'M> ■' 

683 lFP3=44THEHTr;=;y-D8 H8=-i 00T0619 

684 IFP3O33THEH2089 

685 [FB8-10RD8— 1THEHT8-T9-D8 U8=2^ OOTO610 

686 rS-T8-»9 118=1 
610 P3=96 30T0258 

680 R EM"* w — ■■■■» ' ■■■ ■ ■ 

681 REM»»»*LEVIEPS*».» 

682 RBI " " ""— "■■— 

698 PEM 

699 RENWJEVIER h 1** 
."09 G0SUE819 



= 1 H6=INT'Prtll':iJ#58> OOT0219 



-#48/ GOT0238 




791 P0KE7739, 49 i P0KE7723. 59 1 P0KE7/87. 56 ROr:E7b80. bl 00TO1 19 

702 REM 

783 REM*«LEVIER H' 2*» 

712 GOSUB820 

713 POKE76e0.58:POKc7792,33,RC-RC+l-POKE7737+RL,48 :POKEX,96 iPOKEX-22-96 : 1FP.C-3TH 
ENU9 

714 P0KE7723.96 POKE7707,101 P0KE7789,47 

715 P0KEX,96P0KEX-22,96-X='8162,r>A-e 00T0119 

798 REM 

799 REM»»**MUSIQUE**** 

880 MU=36875 MI=36878.R0KEMi,15 

881 READAX. IFRX=-1THEN805 

802 POKEMU, RX = REAIiAC • F0RT = 1 TORC*50 NEXT PUKfcMU, U ■ FORT- 1 TO20 ■ NEXT GOTO801 

805 POKEMU,0-RETURN 

310 FORRZ-223T0234 : POKEMU. AZ : FORRX-1 TO40 NEXT POKEMU, ■ NEXT RETURH 

329 F0RAZ=223T0239 POKEMU, AZFOPRX-1TO40:HEXT POKEMU. 0:NEXT 

825 F0PRZ = 23?T02^3b i LP- 1 POKEMU. AZ F0RAX=1 TO40 NEXT POKEMU. ■ NEXT = RETURH 

348 REM 

349 REMtREGLE OJ JEU.* 

830 PRINT"D5l»LR MACHINE INFERHflLEf 

351 PRINT" ••»«HW)8»»t*rj«."l*'>*T*»*" R0KE36879.75 

8 r J5 PRINT-JOWWSW.UNE MACHiHE MENALt LAPA i X HE I. A VILIE..." 

856 PPIHT". DETPMISEZ SON 'KOEURfi'" 

357 PRINT". ATTENTION RUX PIEOES ! " ; PRINT".'! -EVITEZ LES MONSTRES KRMIKRZES" 

358 PRINT" -C0N8TRUI8EZ UN PONT SOLIDE." 

S53 PRINT"«M*IBOHNE CHANGE "LA VILLE COMPTE S'JR VUUS..." 
879 RETURN 

1498 REM 

1439 REM**FIN DU JEU#* 

1500 RESTORE r J OSUB809-FORT='lTO('0:POKE36873.TPOKt36!!</6. t38*I P0RAX=1 TO40:NEXT 

1510 POXE36376,0:NEXT 

1599 PRIHT"nWWIW " 

1600 PRINT"jW»MBRHVOI*»H:»t»« IIKd j'*H«" 
1610 PRINT'MLfl VILLE EST SflUVEE" 

1629 PRIHT"«0 »:EHI» 

1998 REM 

1999 REM*PEPRRT fl '0'* 

2080 POKEX-22»38:P0MEX.37 pestore OO8UB808 

2894 PRIHT"3MMMI • 

2895 PRIHT"l»f:eLA EST WRHTWrt »"»»« )^mv 

2910 IFPC=2THEH2300 -- M 

2929 IFR.:=1THEN2298 _ w m^9 0m U/V 

2090 IFDAO0THEH2483 -^ ■ - Vr\mi^ U^ 

2113 IFDA->99THEH2415 — m A ■ g\\ ll J ■»*— 

2289 IFDA<105THEH2425 ^^.yXli HlVfl V-J \*J ^* 

2215 IFDA-M05THEH2435 f^l llMll**^^ 

2300 lFDfl<100THEH2449 ^^X^" w 

2315 IFDfl">100THEH2445 

2495 PPINT""T 

2419 PPIin-MaWTRES MAUVH1S :G0T02489 

2415 PRINT"l«miHWHIS" 00T02489 

2425 PPIHT"jW»fr-ES HOVEN" OTT02489 

2435 PPIIIT ,, m»M10VEH ' GOT 024 89 

2440 PPIHT"«0»PA>> 81 MflL- :00T02489 

2445 PPlHT'-rtPMEIEH 1 00102439 

2489 PRINT"*W .■ 

2499 GOSUB880 

2499 PPINT" «« ■■ 

.'...in B0T078 
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MARIAGE, un bon jeu de mots par F. DONNETTE et P 
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MARIAGES 

Apres deux exercices un peu 
serieux sur la lecture, pour 
lustrer la presentation du 
didactitiel ELMO, nous vous 
proposonsunjeu Lejeudes 
manages au principe tres 
simple est un pretexte a des 
activites de lecture, tout en 
entrainant la memoire visuel- 
le et la logique 

il s'agit de constituerdes pal- 
res dans une liste de 8 mots 
caches, que Ton fait apparat- 
tre en pointant le cache avec 
le crayon optique. Les mots 
sont "maries" par une relation 
semantique. phonologique 
ou autre suivant I'imagination 
de celui qui etablit les listes. 
Les mots apparaissent a la 
reconnaissance rapide des 
mots. Ce delai sera plus ou 
moins long suivant le niveau 
qui aura ete choisi par le ou 
lesutilisateurs.il yaSniveaux 
differents. 

Notre jeu est plus passion- 
nant a deux, chaque joueur 
pouvant pointer deux mots a 
tour de role et former ainsi un 
manage. (Note : en cas de 
succes le m&me joueur peut 
recommencer). Pour a g Te- 
rn enter ce jeu. des points sont 
accordes aleatoirement (de 1 
k 13) et parfois sort "un super 
bonus" qui double les points 
acquis (ou plus 5 si on est a 
z&ro !) En revanche le joueur 
qui propose une mauvaise 
paire. qui avait deja ete poin- 



tee se voit penalise de ces 
points... 

II est tres interessant. si les 
utilisateurs sont des entants. 
de leur laisser decouvrir ce 
principe qui oblige une lec- 
ture supplemental pour 
connaitre les points que I'on 
peut obtenir 

Comme d'habitude. vous 
pouvez changer les listes qui 
sont en DATA a partirdeSOOO. 
En5000.donnezlenombrede 
listes differentes proposees. 
Ensuite. tapez deux etoiles 
pour terminer une liste. 

Le programme choisira une 
liste puis quatre paires dans 
cette liste. Les listes peuvent 
avoir une loi de relation dif- 
ferente. Par exemple, nous 
proposons trois listes. la pre- 
miere represente la relation 
moyen de locomotion/utilisa- 
teur, la deuxieme source de 
travail/metier, et la troisieme 
action/objet. Avec des utili- 
sateurs plus ages on peut 
creer des listes aux relations 
plus subfiles. Vous pouvez 
aussi etabtir des listes avec 
des mots en anglais et leur 
equivalent francais etc... Seul 
contrainte : Au moins huit 
mots (quatre paires) pour une 
liste. Si vous savez program- 
mer vous pourre? vous aussi, 
batir des jeux qui amuseront 
les enfants tout en leur per- 
mettant de s'entrainer, voici 
quelques idees : 



ia ow p»<3,i>,cop'3,i,i> 

28 SCPEEN 1>9,3'CLS:ATTRB e. I : LOCATE 9,1 
8:PPINT-e Jeu des Manages •" 

m ---=3 9,0 

33 COLOR ~:l:Im-; B/IS:PRIMT'C« j«-j c.ut 
se jojee * -:CQLQ= 4.6SL0CATE 10,1 IPS] 
•*T- DEUX ";:C0L0P 3-9sPPINT- 5<j bier. *;: 
. ■ . -= «, 6'PftIjn SEUL -sCOLOP 3.9 
40 LOCATE :.2a:PPl*T-Pointe:= w**rt :hoi 

»v«c le crayon ..." 
39 INPUTPEN C.L 

;! :• c ? :? . e 

se it oesi :*z-l s ~hen 59 

: . ::•-: i : : ~-zm jOu^i-got; :~e 
[f UBS- I97-C:.->29 THEM 50 
Kl«2i .::;:cEEN 8.3,* 
:99 -TTP8 B,HCOU)fi l,4eL0C«TE 6,6'PRIM 
lUf il l«Z jouer a dew ... 

- aTTRB a. a 

113 LOCATE 8. 10:PRINT-Pre»l-r JOU4 Ft 



:-■• COLOR 2,9:IHPiJT j2i:C0TO 202 

i7« :ls=sc?ee« 4,2,1 

1:8 LOCATE 3,8:COL0P B,i: ATTRB 9, 

- ■;- jOUtrr se-jl ... * 
189 ATTPB e,*: COLOR 4, 3 

159 LOCATE 9, ISiPPIwr-Biruour, quel est 
•<jn prtnom *:CQLOP 1.9 
£89 LOCATE 8. I?: INPUT Ji» 
292 COSUB 6299 
295 GOSUB 2598 
219 CLSsSCREEN 1,0,0:ATTPB 9.1 

212 LOCATE S,!9:PPi»*r-LE JEU DE ! 

s-slocate ta, j3(p»:»«t-vh cofmEMCEfl ...' 

213 BOX <48.43'-'243,l32'.3 

214 LOCATE 29,I7:ATTRB 0,9:PPINT*Pa* :enc 

215*C0L0R 3SL0CATE B,e3iPSllfT'Ph.Huchncr 

t F.Dormette" 
£19 PEN — CHOIX 4 PAIPEl --- 

215 FOP 1-9 TO KQT:x-P«.:NE/T 1 

229 RESTORE 5B88!PEAr, LI :l = INT ■&*[■■- : 

£38 GOSUB 6189 

248 FOP 1-0 TO 3 

258 PESO At-Blsf «*■"•»" THEN COSUB 619 

9s GOTO 250 

25? IF PNO>0.4 THEN 250 

269 FOP J-8 TO I-Ji'varll n wkirt >«,» 

Ehoislc 

£79 IF PI. J,8/=hI THEN 250 

£S9 NEXT J 

299 P»<"I,0>-A»:P«' I. i/»B*:NE.-;r : 

£55 SCPEEN 2,8.9 

399 RE" — toofHonntts ifflchsM — 

395 n-a 

316 RESTORE 7098:N-8 

329 IF N«8 THEN 319 

339 PE9& C,L:H-N.l 

349 ft>INT<RN0«4)tB>IIIT<RMD«2> 

345 FOP t-9 TO 3 

346 FOR J-0 TO 1 

347 IF COP' I. J.8/-C THEN 328 
3*8 MEXT JiNEXT I 

350 IF COP'a,B.8>-0 THEN 320 

369 COR(A,B,0J»ClCOP<A.B,l'=L 

370 n-n*l'.lT M<8 THEN 328 

390 PLMY-03DOKISO$004L66EPEHIfcOL48[>0- 

395 CLSiSCREEN 9,4,4 

46B FOR 1-0 TO 3 

485 FOR J»8 TO 1 



1) La phrase a decouvrir : 
Une phrase va se former a 
partir des lettres proposees 
par chaque joueur. Au depart, 
toutes les lettres sont repre- 
sentees par un point. Puis 
chaque lettre proposees 
s'inscrit dans la phrase. Le 
joueur qui t ermine la phrase a 
gagne. 

2) A vous couper le souffle : 
un texte sans ponctuation... 
Utiliser le m§me principe 
mais sans locaiiser la ponc- 
tuation. Chaque joueur pro- 
pose une ponctuation qui 
s'affiche lorsqu'on la ren- 
contre. Cettefois.il est prefe- 
rable de n'afficher qu'une 
ponctuation a chaque essai. 
Technique, un tuyau : (aire le 
texte lettre a lettre et un 
blanc si le code ASCII est infe- 
rieur a 64. 

3) Remettre en ordre : 

Les mots d'une phrase sont 
inscrits en desordre sur 
I'ecran, il faut trouver le bon 
ordre, en pointant succes- 
sivement chaque mot. Pour 
faciliter le jeu, le programme 
peut mett re chaque mot poin- 
te en couleur et afficher la 
phrase en cours de reconsti- 
tution. Vous avez surement 
d'autres idees, ecrivez-nous, 
envoyez vos programmes. Ou 
bien si voire programme mar- 
che presque mais... n'hesitez 
pas, on peut surement vous 
donner un tuyau. 
Ph. WUCHNER/F. DONNETTE 
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439 PEN I«2*J; 

,L*12> 

448 NEXT j:HEXT I 

450 PLAVL6S0ninlRED0L4BO3SOHIREOO- 

469 SCPEEN 3.4,4 

479 REM — Oebut d-J jeu —- 

458 TR=IHT'PND»a>»l 

459 tJEJH"-:«fiP-9: JA=0: JB=9:CP"i:C0SUB 2 

508 CP»CP*l: IF JOU-1 THEN n« = ' TO! " : GOT 

520 

595 GOSue 3599 

519 IF TR-1 THEN H» = " ■*Jlf ' ELSE "*- 

■ -*J2I*" ■ 

529 LOCATE 6,19:C0L0P 3.4 

538 PRINT" » 'iiCOLOP 1.6:PPINT H*JICOL0 

P 3.4:PPINT- de jouer * 

560 GOSUB 4999 

579 c*x:B-V 

589 LOCATE 3.I9=C0L0R 3.4 

5?9 PRINT-encore • *;:COLOP 1.6:PPINT HI 

::COLQ° 3.4!PPINT- dt ,ouer ■ 

699 GOSUB 4809 

619 IF fi-X AND ftSS(8-V)-l Then 700 

6£9 COSUB 45fleiC0SUB 3809 

636 ATTP8 0, is LOCATE 18,20:COLOR 1,2 

640 PRINT" NARIAGE "ANOUE 1 * 

645 PLAY*03rj002SOL49HIPEL96DO* 

658 ATTRB 9,BsCOL0P 3,4 

669 GOSUB 4500 

670 IF TR"! THEN TP-2 ELSE TP«I 
675 GOSUB 29B8 

689 GOTO 50B 

708 GOSUB 4599 

"18 ATTPB 9,1!L0CATE 18.28sC0L0R 1,6 

728 PRINT' MAPIAGE PEUSSI ' ■ 

725 PLAY-04L12PERENIDONIS003L4BDO- 

726 \T CP>2 THEN 730 

727 LOCATE 8,l:PRINT- QUELLE CHANCE AU 
PREMIER COUP ' *sCOLOR 3,4 

728 FOP T-I TO 580SNEXT T: LOCATE 6,l:PR 
INT SPC(40) 

738 0TTR8 0.0SCOLOP 3,4 

748 COSUB 4500 

758 COLOR HAP*1,8 

768 C-COR<A,8,8>*8:L s C0P<A,B, I ■*■: 

770 B0xr'C,L-4.-<C*LEN'PI'A.B- -i9.3i.L- I 

2>.e 

775 C-C0R(X,Y,9'»8:L-C0R<X,Y,I>»8 

777 B0Xf:C,L-4>-(C*LEN'P*'X,Y))<8»32,L*l 

2>,0 

788 LOCATE COR'X,V,0>»2,COR(X.Y,I> 

908 PRINT R»(X,Y) 

910 LOCATE COR'A.B.e ■•2.C1P' A,B. I ■ 

928 PRINT P*(A.B> 

930 PEN Of2*B;<0,0>-'0.0> 
640 PEN X«2*Y; '6,0'-<0,O> 
-359 nAP«*AC*I 
855 IF B0N<5 THEN 860 

857 IF TP-1 AND JA-8 OR TP-2 -NC JB-0 TH 
EN 360 

858 IT TR-1 THEN JA-JA»2 ELSE JB- JB»2 

859 GOTO 878 

860 IF TP-1 THEN JA-JA*B0N ELSE JB"J8*B0 

878 COSUB 2000 

989 IF MAP-4 THEN 1088 

919 IF NAR<3 THEN 590 

915 LOCATE 9.ISATTRB 9,liPPINT II 

929 LOCATE 5,lsC0L0P 6,1 

939 PRINT" ON NE PEUT PLUS SE TROMPEP ' 



EN TOURNANT LES 
PAGES... 

Pour les heureux possesseurs 
de Commodore 64. le jeu "Le 
Sonneur de Paques* plaira 
sans aucun doule aux petits et 
pourquoi pas aux grands! 



RESTONS SIMPLES ! 


Cette page educative elanl 


reservee aux enseignanls 


1 equipe de Redaction ne 


portera aucun jugemenl de 


valeur quant a la qualite 


pedagogique des program- 


mes ou articles puDiies Les 


critiques emanant d ensei- 


gnants seront loujOurs les 


bienvenues elles seront 


publiees et transmises aux 


auteurs concernes 


P GLAJEAN 



^ 



A VOS MARQUES 




CALENDRIER DES JOURNEES 


DIDI specialisie en la madere 


GRATUITES TEXAS 


Renseignemenls et inscrip- 


Orgamsees par TEXAS INSTRU- 


tions OPTIMA CONSEIL. TCI 


MENTSet O M . avec le con- 


(7) 834 60 06. ou au journal 


cours d HEBOOGICIEL. jour- 




nees gratuites concernant 1 uti- 


Dale 


lisation des calculatnces pro- 




grammables ou non, en milieu 


20 Juin CLERMONT-FERRAND 


scoiaire et ammees par Roger 







948 COLOR 3,4:ATTRB 0,0:COTO 580 

1089 REN PAPTIE FINIE 

I 910 PLAY*04L12PEPEt>OniS005C)OPEREL4eD004 

SOHIDO- 

1015 CP-CP-1 

1928 CLSiSCPEEN 1.0,0 

1839 IF J0U=1 THEN 1288 

1949 IF JB>JA THEN A»=J2»sGOT0 I960 

1058 IF JA>JB THEN A«=JI* ELSE II2B 

1969 LOCATE 9.4SC0L0R 1,3:ATTRB 8,1 

1979 PRINT'BPAVO • * i 0»s PR IXTs PRIHT'Tu »s 

1098 IF AI'JII THEN A*=J2* ELSE flt-Jl* 

1108 OU«-'V«u.-tu ta reuan«h« '*A* 

1119 GOTO 1380 

1128 LOCATE 0,4:COLOP 5.2:ATTPB 8.1 

1130 PPINTJH!' et -; J2I 

1140 PRiNTiPPINT'Vous etes *uf*i fofts ' 

1159 OU*"-Un« autre partie ■ 

1160 GOTO 1300 

1290 LOCATE 0.41COLOR 3.41ATTPB 0.1 
1210 PPINT'Tu as rtussi * sPPINTjPPINT Jl 



1220 OUI-'Veur-tu r«coi«« 

1300 ATTR8 0.0SCOLOR 6.1 

1310 LOCATE 0.10SPPINT- ' 
1.1 



: ; i 



: COLOR 



1320 PRINT- ESSAIS pour cette partie" 

1338 PRINTsPRINT 

1340 IF CP>12 THEN At=*C» »»i< beawccup- 

sCOTO 1368 

1358 IF CP<7 THEN M-*CE3I EXCELLENT- E 



LSE 1 



-Ces 



'In 



1:. . ■ 



1355 IF CP-4 THEN ( 

le chant** 

1368 PRINT AS 

1378 LOCATE 8.221PPINT OU*; 

13B9 INPUT P* 

1398 If Rf-*NOK- OR Ri'-non- "HEN 1500 

1400 IF R*-*OUI- OP R*""0«i' THEN lilt- E 

LSE LOCATE 0.22SPRINT SPC40HGOTO 1370 

14)8 FOR 1-0 TO 3 

1420 FOR J-0 TO 1 

14 30 COP' I, J. 1 i-9: COP' 1 . J. 9 "=*: £ ' I 

-1NEXT JiNEXT JiCOTO 295 
1590 CLSSATTRB 1.1 
1560 LOCATE 3, 15SPPINT-AU REVOIR' 
1570 ATTRB 0.0 
1588 PRINTsCOLOR 3.0sPRINT-Re' J en*i jouer 

blentot. .. * 
1590 ENO 

2880 PEW --- -.FFiCHf, SCORE --- 
2010 IF JOU-1 THEN 2100 
2828 LOCATE 0,22iCOLOR 1.6 
203* PRINT-SCORE I •; (COLOR 4,4 
2033 ATTRB a, 1 

2048 PRINT TA8(15>j:COL0P I.21PRIKT LEFT 
§< J1I.7>I 

2838 COLOR 2,ltPPI"*T jaiiCOLOR 4,4 
2868 PRINT TAB<25> ! •■ COLOR 3.31PRINT LEFT 
i. J2«,7>i 

2970 COLOR 5.3SPPINT jBsCOLOR 2.4 
2875 ATTPB 9.0 
2980 RETURN 

2180 LOCATE 8.22SC0L0P 5.3IATTRB 9.1 
2183 IF NAP-4 THEN PRINT' TERNINE "tRETU 
RN 
2110 PRINT" COUP Nu»aro 'SCP'COLOR 2,4 



2120 ATTRB 0.8:PETUPN 

2590 REM -- ehoi. du niveau 

2505 RESTORE 2S99 

2510 CLSsSCPEEN 6.0.9 

2529 ATTRB B.ULOChTJ 3.HATTR8 0.i> 

2539 PPINT'CHOISISSEZ LE NIVEAU ■ 

2535 LOCATE 3.3sPRINT'En »oint»nt *ue< 1 

e cra 3 on* 

2549 FOP 1-1 TO 

2559 BOXF'32.32*I»l*>-i.i8.40.;«i6>.3 

2569 PEN !-!:■ 3;.-:- :•:■ -■■. j.'->:- 

2578 READ ALLOCATE ". I42**sPPINTAI 

2589 NEXT I 

2668 ON PEN GOTO 2*28, 2639. 2640.2650.266 
8.2679.2699.2698 

2618 GOTO 2608 
2628 TI-480=RETURN 
2639 TI-389:RETUPN 
2648 TI.209SPETURN 
2659 TI-100:RETUPN 

2669 TI-70JRETURN 

2670 T1-58SRETURN 
2698 tI-25:petupk 
2698 T 1-5: RETURN 

2899 DATA tres f ac 1 le. fat 1 le.assei '»<il 
e.nomal.assc: dl 1 1 ic 1 l«,dl I fie t le, tres 
difficile. champion 

3989 REP1 --- VERIF »l H"P. C'EJA PROP -- 
3919 IF A>X THEN Nt-STP*-; A»ieO0*B«100*X« 

19*V ELSE Nielli .:....,-. .;, •;,>; 

3020 IF IKSTP'CEJI.NI ■=? THEN 3100 
3030 LOCATE 0.1SATTR0 0.1 
3035 PRINT SPC<40*s LOCATE 6. 1 
3040 COLOR 3.0 

3050 PRINT- On *t l'» deja F>ron«i« ' * 
3055 IF JOU-1 THEN LOCATE O.HFOP T-l TO 
5001NEXT TsCOLOP 3.4:PPIMT BPC(40)lRETU 
RN 
3060 IT TR-I THEN 3070 

3865 JB-JB-BONUF JB<8 THEN JB-0 

3866 RETURN 

3878 JA-JA-BONMF JA<8 THEN JA-0 

3899 RETURN 

3190 DEJt*DEJ«*-4"'K*!ReTuRN 

3590 PEN -- calcul BONUS -- 

3505 IF KAP-3 THEN BON-URETURN 

3519 ATTRB 8, Is LOCATE 8. I : PRINT 91 

ATTPB 0.0 

3320 IF PND<0.I THEN 3609 

3539 B0N.INTCBNr,'t3>'l 

3549 LOCATE l.lsCOLOP 6. I 

3559 PRINT" SI TU PEUSSIS TU MAROUES'JBO 
N; 'POINT*; 

3555 IF B0N)1 THEN PPINT-S" 

3560 COLOR 3.4SPETUPN 

3609 LOCATE 15.1SC0L0P 2.1: ATTPB 8.1 

3610 PRINT- SUPER BONUT- " 
362B PLAVOSOOREHISO-:*.'"- 
3638 BON-3ICOL0P 3.4:p£TURN 

4808 ONPEN GOTO 4920.4839,4849,4858.4868 

.4078,4999,4890 

4818 GOTO 4880 

4820 X-8:V-8:&0T0 4188 

4038 x-8:V-i:G0T0 4108 

4040 X»lsr-OiC0T0 4108 

4858 X-|:V-i:COT0 4100 

4868 X-2:V-8sG0T0 4108 

4878 X-2iY-l:C0T0 4 188 

4888 X-3>r-0>GOTO 4100 

4999 X-3lY«l 

4108 LOCATE COP' ■-..■■■-..■ F ■ ■ 1 

4118 COLOR 8,3 

4129 PLAV-L60500nlSOL4et>0* 

4130 PRINT PKX,Y> 

4148 FOR T-9 TO THNEX1 T 

4158 C-COP'X,V,0.»8:L-COR*X.v,l >•& 

4168 BOXF'CL-4 )-<C*LCN(Pfli • • 

I2>.3 

4170 RETURN 

4599 COLOR 4.4SL0CATE 8.I81FOP T-l TQ ?! 

PRINT SPC'49>:N£XT TtCOLOR ] p 4 1 RETURN 

5809 t'ATA 3 

5010 L'ATA CHEVAL. ■■ 

TEUP. AVION. PILOU. 

OUI I EP.TPACTEUP. FEPHlEP.tOTP.no- ■■ 

E. COSHONAUTE. BATEAU. NAP IN. JEEP. SOLC -I. •• 

5828 t>ATA LETTRES. FACTEUR. COURSE. C m w iip 10 

H. PANNE. HECAKKIEN.CAS'T-CPOLE.CUISINIER.C 

HAUSSURE.COPDONNIER. USSU, IaIlLLUk. IAW 

E.BOUCHER.*IE['KAHENT.PHAR»ACIEN,H.'<L-i f .0 

OCTEUR.VIOLON.riUSICIEN.a* 

5039 DATA -IANGEP,PErT»UPANT.vn,,. ,: . 

N. PLANTER. JARDlN.CACHER.TPESOR.BOIRt.FON 

lAINE.PANSER.rEIC. JOUER.PAPC.PEGAKC.Ef. I" 

AGE.LIRE.HISTOIPE.PANGEP.vETEflENlS.LANCE 

P. BALLON, •• 

6189 REN - se Plater au debut tf'un* list 

6110 RESTORE 3eee«READ LUP-8 
6120 If L-P THEN PETUPN 
6130 REAO CisIF C«-'l»- THEN P-P-l 
6148 GOTO 6120 

62BB PEN HOT MELANGE --- 

6285 COLOR 3.4 

6218 PR|NTiPR|NT*Oonne-BOI une touleu' " 

Utt; 

6220 INPUT C* 

6238 FOR J-i TO LCKfCl 1 

6240 NOT-H0T»ASC'«lt><'':«, 

6230 NEXT JlPETURN 

7000 CATA 3. 3.23,3. 3. 7.23. T. 4, 1 I . 

.13,26,13 I 



a /a semaine prochaine 



• •• 
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MICRODIS 



Lorsqu'il est necessaire de modifier un programme en 
langage machine (ou systeme pour reprendre un voca- 
bulaire plus TRS80) il est presque toujours necessaire 
de remonter au niveau du langage source (assem- 
bteur) pour pouvoir localiser lendroit ou effectuer la 
modification. II serait particulierement fastidieux d'etfec- 
tuer cette traduction a ta main. Mieux vaut utiliser un 
programme desassembleur pour (aire ce travail, mais 
de facon un peu bnjtate, sans vraiment distinguer don- 
nees et programme. 

MICRODIS, (ait partie des desassembleurs. il est parti- 
culierement petit et rapide et connait tous les codes 
operation du Z80. 

Bernard OUPIN 

FonctKXinement: 

Entrer ladresse du debut: 1 a 4 digits hexadecimaux suivis dun 

quetcooque caractere non hexa. 

Une pressioo sur ENTER afliche les 16 lignes suivantes. 

I renvoie (e programme au depart (adresse). 

x termine r execution. 

SPACE entrai'ne un desassemblage sans aucun arret pendant tout 

le temps de la pression. 

Transportabilite: 

La conception tr6s elementaire de MICRODIS le rend lacite a trans- 

porter sur un autre materiel (ZX81. SPECTRUM. MZ80). 

Particulates du MZ80: 

3CO0H est ladresse de la memoire ecran. 

CALL 109H permet d'effacer un caractere sur I ecran. 

CAL 19H permet de lire un caractere sur te davier. 

modele 1 ou 3 16K 



00188 ; TRES COURT - MOINS DE l.» DE CODE 

80178 : TRES ROPIDE - HOINS DE 25S POUR LA 
TOTOCITE DC LP ROM NIVEAU II 

WIS* I ET IL CONNAIT LES COOES CACHES CU Zl 

80tS« : 



sou 


00220 


ORG 


32SflH 


3280 318032 


00240 START 


US 


SP. * 


3283 213F58 


00230 


LD 


HL.H5GINI 


3286 8632 


00258 


LD 


B. FIN-KSGINI 


3288 7E 


00270 5TR10 


LD 


A, (HL) 


3289 23 


00280 


INC 


HL 


52B0 CD3388 


z2:=-a 


COLL 


33H 


528D IBF3 


00300 


DJNZ 


STR10 


528F CD0E33 


00318 


CALL 


HEXVQL 


5232 CDC301 


00330 STRI5 


COLL 


1C9H 


3293 881 B 


00340 


LD 


B. 16 


5237 1I9B3C 


003 50 


LD 


DE.3C00H 


3290 C3 


003G0 STR20 


PUSH 


BC 


5296 OS 


00370 


PUSH 


DE 


529C E3 


00380 


PUSH 


HL 


529TJ CDA455 


80390 


call 


DATA1E 


52R0 7B 


00400 


LD 


AVE 


52oi cgio 


00610 


ADO 


A. IB 


52A3 5F 


00628 


LD 


E. A 


52A4 CD32S3 


00630 


COLL 


DECODE 


52A7 301C57 


004*0 


LD 


A. (COD) 


52O0 CD7354 


00650 


COLL 


CODOPE 


52AD 78 


004E0 


LD 


A.E 


52AE ESC0 


00670 


AND 


0C0H 


52BB C&1B 


00680 


ADO 


A, 27 


52B2 5F 


■MSB 


LD 


E.A 


5283 3A1D57 




LD 


A, (DPA) 


52B6 97 


00310 


OR 


A 


3287 2811 


00520 


JR 


Z.STR68 


52B9 CDC354 


00530 


CALL 


QPERAN 


52BC 3A1E57 


00360 


LD 


A. (DPB) 


52BF 97 


00550 


OH 


A 


32C0 2308 


00560 


JR 


Z. STR4B 


52C2 EB 


00570 


EX 


DE.HL 


52C3 362C 


005e0 


LD 


(HL). ' . * 


52C3 23 


00390 


INC 


HL 


52CE E9 


00E80 


EX 


DE.HL 


52C7 CDC354 


00610 


CALL 


OPERAN 


52CA CI 


00620 STR4B 


POP 


BC 


52C8 E5 


00S30 


PUSH 


HL 


32CC OF 


08840 


XOR 




32CD ED42 


00650 


SBC 


HL. BC 


52CF CS 


08660 


PUSH 


BC 


3200 65 


00870 


LD 


B. L 


5201 El 


00SS0 


POP 


HL 


52D2 7B 


00690 


LD 


A.E 


5233 EEC8 


00700 


AND 


0C0H 


52D5 CE05 


00710 


ADD 


A. 5 


52D7 SF 


00720 


LD 


E.A 


5208 C5 


00730 STP65 


PUSH 


BC 


52D3 7E 


00740 


LD 


A, (HL) 


52DO 23 


08750 


INC 


HL 


520& CD0355 


00780 


CALL 


VALHX2 


52DE CI 


00770 


POP 


BC 


52DF 10F7 


007E0 


DJNZ 


STR45 


52E1 EI 


00730 


POP 


HL 


52E2 E3 


00800 


EX 


(SP).HL 


52E3 0140(80 


note 


LD 


BC.64 


32EB 03 


00820 


ADD 


HL.BC 


52E7 EZ 


00S30 


EX 


(SP).HL 


52E8 Dl 


00860 


POP 


DE 


52E3 CI 


00250 


POP 


ec 


52EA 10AE 


80880 


DJNZ 


STR20 


32EC 3A4033 


00870 


LD 


A. (384BH) 


52EF FE88 


;'.'.•■-.":.: 


CP 


BOH 


52F1 2S9F 


80890 


JR 


Z.STRI5 


52F3 CD2600 


00900 5TR50 


CALL 


2BH 


52F6 67 


00910 


OR 


A 


52F7 20FO 


00320 


JR 


NZ.STRS8 


52F9 C02BB8 


00930 SrR55 


CALL 


2BH 


52FC FE20 


80340 


CP 




52FE 2892 


00930 


JH 


Z.STRI3 


5300 FE0D 


00380 


CP 


BDH 


5302 2E8E 


00970 


ja 


Z.STR15 


5304 FE2F 


•8988 


CP 


' /' 


, .... jpgggj 


BBSS! 


jp 


Z. START 


3309 FESE 


01000 


CP 


'X' 


530B 20EC 


01010 


JR 


NZ.STR35 


330D C7 


01020 


RSI 





530E 210000 


01040 HEXVOL 


LD 


HL.0 : LEC 


33! 1 CD4900 


81030 HI VI 


CALL 


63H 


5310 CD3308 


01880 


CALL 




3317 FE30 


01070 


CP 


"0- 


3319 F8 


01080 


RET 


PI 


53IA FE3A 


01030 


CP 


■9-*l 


531 C F02733 


01 100 


JP 


M.HX3 


531F FE41 


01110 


CP 




3321 FE 


01120 


RET 


M 


5322 FE47 


01130 


CP 


■F'*l 


5324 F0 


01160 


RET 


P 


5325 D607 


01158 


SUB 


7 


8327 D630 


01168 HX3 


SUB 


•0- 


3329 29 


81170 


ADD 


HI.. HI. 



! LECTURE ADRE55E 



s::n ;9 

332B 29 

532C 29 

5320 r-^ 

S32E 6F 

532F 1BE0 



ADD 

ADD 
ADD 



HL.HL 

ML.ML 
l«_.HL 



DECODAGE 



5331 2B 01280 DEC00 

3332 7E 81298 DECODE 

5333 23 01300 

5334 FE7E 81310 

333E DD21F757 01320 DEC02 

533A 28 IF 81330 

533C C03F36 81368 

S33F CDC753 01350 

3362 FE6D 01380 

5366 CS 81378 



Z. DEC81 

ECLATE 
DECSP 
6DH 



SPECIAL CODES 



53*5 7E 

5346 23 

5367 CD3F54 

536A DD6681 

S36D I88E 

334F 47 

5358 07 
5351 80 
5332 4F 
5353 8688 
5355 DD21FA37 

5359 DDB9 
535B 1871 
333D 101C 
335F FE81 
5361 2880 
5363 DD210638 
3387 FD2 16257 
536B 1875 



536D FE02 
536F DD213938 

5373 2859 
5375 DD213C38 
5379 1833 

537C CDC753 
337F CI 
3388 FE4D 

5382 2828 
5384 2S 

5383 7E 
5388 FET6 
5388 23 



81618 
114 



5395 CD1D54 

5398 BC 

5399 2087 
539B CD2F54 
539E 28 
539F CD2F54 
S3A2 El 
53A3 C9 
53A4 3A1D57 
53A7 FE01 
53A9 2088 
530B 7E 
53AC 23 
53AD 321F57 
53B0 3E2D 
53B2 88 
5383 F3 
53B4 7E 
53B5 23 
53B6 CD3F54 
53B9 CD6F53 
53BC 011E57 
53BF 0A 
53C0 B7 
53C1 2881 
53C3 BB 
53C4 FI 
53C5 02 
53C6 C9 



53C7 47 
53C8 1086 
53CA DD2 13057 
53CE 1834' 
53D0 1008 
5302 DD219D57 
53D6 1B2C 
53De 100O 
53D0 DD21A057 
53DE FD2 13257 
33E2 1808 
53E4 DD2 15257 
53E8 FD212257 
53EC 3A2157 
53EF 07 
53F0 0600 
53F2 4F 
53F3 FD09 
53F5 3A2057 
53F8 FDO6B0 
53FB 4F 
33FC 87 
53FD 81 
53FE FD860I 
5601 4F 
5482 DD09 
5484 DD7E01 



81438 

81460 

01630 

81468 DECS 

81478 

81488 

01430 

01300 

01510 

01520 

01530 DEC01 

81548 DEC1 

81550 

015&0 

01570 

01588 

81598 

81618 DEC2 

01820 

81638 

01640 

01650 

8I&60 DEC3 

81878 

81888 

01690 

81700 

81718 

81720 

81738 

81748 

81750 

817B0 

01770 

01780 

01738 

0t see 

01818 
81B28 
01830 



01918 
01320 

01938 
01340 



82828 

02038 
82040 



INC 

JR 

CALL 

DEC 

CALL 

POP 

RET 

LD 

CP 



02878 DEC5 



82170 

02180 DSP2 

02190 

02200 

02210 DSP4 

02220 DSP3 

82238 

02240 INDEX 

02258 

02260 

02270 

02288 

02230 

02380 

02310 

82320 

82330 

02340 

82350 



5487 CD5454 
560A 321 D57 
548D DD7E02 
5618 C05436 
5613 321ES7 
5416 DD7E00 
5419 321C57 
54 1C C3 



5/. ID 7E 

56 IE FE06 

5420 2804 

5422 3E2A 

5626 1816 

3426 FE10 

5428 2818 

5420 FE22 

542C 28BC 

562E C9 

542F 7E 

5430 FE0C 

3432 2803 

■.'. v. ii 00 

:.'. ■:, i ;1 

543/ 87 

3438 CCIF 

54 JO 3C 

54 3B 88 

563C 0C 

543D 77 

363E C9 



RLCA 
ADD 
ADD 



02370 MOVCOD LO 



02380 
02390 
02480 
02410 
02428 
02630 
02460 
02450 



82470 REGIND LD 

024 B0 CP 

02438 JR 

02300 LD 

02310 JR 

02520 RGN10 CP 

02338 JR 

■ U CP 

82350 JR 



8258B RGN3 
02538 

!-...:■■.• 
82618 
02G20 

w.i. v. R0N39 
0:t,4h 
02650 RGN13 

'.1. i. (.0 
02670 
h;-^C0 

02638 



ECLOTE 
B. (IX*1> 

DEC1 

B.O : 

A.B 
C.A 

B.a 

IX.T28 
IX. BC 
DSP8 : 

DEC3 : 

1 ; 

N7.DEC2 
IX.T21 
IV.TED81 
DSP4 : 



INSTRUCT IDf 



543F 47 
5448 E607 
3442 322157 
5*45 78 
5446 BE 
34*7 IF 
5*48 9F 
5*43 E687 
I CODE • 5&&B 322857 
5**E 78 
544E 87 
5*58 87 
5631 E683 
5*53 C9 



545* FE30 

5456 2085 

5*58 3A2857 

5*5B 1887 

5*50 FE3I 

S*5F 200S 

5461 302157 

5*8* C688 



A suivre : 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois 

La Redaction 



82710 
02728 
82730 
02740 
82758 
0I-7&0 
02770 
02788 
02798 
82800 
02818 
82820 
02830 



ECLATE LD 



RRCO 

RRCfl 
AND 



&ITS 8-1-2 



BITS 3-4-3 



RLCA 
RLCO 

AND 



NZ. REGS1 
82888 LD O. (XXX) 

82S98 JR REGS2 

02980 REGS1 CP 31H 

82918 JR NZ. REGS3 

82928 LD O, (VYY) 



82938 REGS2 ODD 



0.8 



LD 


IX.T29-3 


JR 


NZ.DSP0 


LD 


IX.T29 


JR 


DSP0 


PUSH 


BC 


CALL 


DECSP 


POP 


BC 


CP 


40H 


JR 


Z.DEC4 



CODE INEXISTONT 



CODE SPECIAL ' 



-) HX 4 LX 



CB SEULEMENT 



(DEP).I 
fl. 2DH 
O.B 



ECLOTE 

DEC0 ; ONOLYSE CB 

BC.OPB 

O. (BC) 



B.0 
DSP1 
IX. T9 
HOVCOD 
DSP2 
IX. TIB 

novcos 

DSP3 



IX 



CO 
IY. BC 
O. (XXX) 
(IY'8) 

C.A 



O.C 



REGS 
(DPO).O 
A. CIX*2) 

REGS 



0EH 

NZ. RGN1B 

A.2AH 

RGN15 



TRS80 



Surle page 19 



Suite de la page 13 



♦4^ 7.%8A 



9438 GOTO 90 

0448 IT J-0 THEN GOTO 2788 

944S IF OBU) (1) <>■»" TMCN GOTO 

3748 

9450 LET Ot(J) (l)-STRt 5 

9460 LET OiJ) 30 

9405 LET 0-0-1 

9*67 LCT J-9 

9478 OOTO 98 

9475 CL3 



9408 

THEN PRINT 



9*80 ir 0-8 ' .... 

9488 r-OR r«l TO 
9*03 IF 0*(F) (1) 
Ot(F) IS TO i 

9464 NEXT F 

9465 PRINT AT 21 ,8 ; "PRCSSCZ UNC 
TOUCHC." 

9456 IF INKCY»«"'- THEN GOTO 9*86 
9487 GOTO 98 
9*88 PRINT -RIEN" 

9489 GOTO 9488 
9580 CL3 



9387 PRINT ■UOUS CTC5 MORT . . . " 
9318 PRINT RT 30 , ; "CNCORE UNE P 
ARTIE (0/N) ?" 
9320 IF INKEYt"'"N" THEN GOTO 988 



9638 IF INKEYt< 

18 

9548 RUN 

9608 CLS 

9618 PRINT " U0U5 DEUE2 CHERCMCR 

UN OOCUMENT" 
962B PRINT 
9630 PRINT " 



THEN GOTO 98 



PROUUANT 



CULPRBILI 



9668 PRINT 
9678 PRINT 
9688 PRINT 



' RT 9. 

H.;"8m«;P.T 14,1'^ . 




9698 PRINT 

9?5» PRINT "MAIS CE OOCUMCNT EST 

CODE." 
971B PRINT -a. FAUT OONC CHERCHE 
R LE CODE . " 
9738 IF INKEYt" 1 " THEN GOTO 9720 

9721 SCROLL 

9722 PRINT -UNE FOIS CELR FAIT I 
L FRUORA - 

9723 SCROLL 

9724 PRINT "SORTIR." 
9727 SCROLL 

9730 PRINT "TOUTes LES PIECES SO 
NT UUES DU" 

9731 SCROLL 

9735 PRINT " 

9736 SCROLL 
9748 PRINT "3RUF eXERTIONS: 11 
9741 SCROLL 

9750 PRINT "DUNS CE CRS DCS PREC 
ISIONS UOUS 11 
9731 SCROLL 

9760 PRINT "SERONT 00NNEE3 ULTER 
ICURCMENT." 

9761 SCROLL 

9763 PRINT -BONNE CHRNCE . " 

9763 IF INKEY*.— THEN GOTO 9763 

9764 GOTO 10 



"3U0. 



593B GOT 



NT ■■OQHMROE" 



3003 PRINT OT 18,6; ■■ ";RT 

1,8; •.-«•-. ",RT 12,8; " 

LIGNE 6840: ...;AT 16,9, " JK8tt " 

LIGNE 7638: 
9338 PR" _ 
OUS 7"» 

0476 PRINT "UOUft TBNEZ ; " 



TRAQUE 



Sur un terrain quadrille (9 X 9) vous entrez a la case 
(1,1) et vous devez vous rendre a la case (9,9). Un 
monstre surnomme BUG. situe a ia case (5,5) au 
d6but du jeu tentera de vous en empecher. Vous avez 
30 points de vie au depart. et chaque emplacement de n 
cases en consomme n au carre. 
Si BUG tombe sur la meme case que vous, vous etes 
mort.., Pour gagner, il suffit d'atteindre la case (9,9) 
avant d'avoir epuise ses points de vie et sans etre rat- 
tape par BUG. 

Trois niveaux de difficulte (24, 27 ou 30 points de vie 
au depart). 

G.OSMONT 
Instructions: 
1)XEQ TRAQUE. 

2) NB ALEA< 1? 

introduce un nombre positif inferieur & 1, puis R/S. 

3) niveau dirf. 1, 2, 3. 

entrer 1: facile, 2: moyen ou 3: difficile, puis R/S. 

4) Affichages successifs de: CASE X: x.Y ■ y. (votre position) 
BUG X = x\ Y = y' (position du monstre) 

PTS VIE = nn (points de vie restant). 

Deplacement, Direction ? 

entrer la direction (en degres). R/S : par exemple, ou 45 ou 90. 

Distance ; 

entrer le nombre de cases . R/S puis retour en 4 sauf dans les cas 

suivants: 5) Arrivee dans la case (9,9) sans encombre, Bravo vous 

avez gagne. 

6) Le monstre arrive dans !a meme case : dommage Mort rapide. 

7) Vos points de vie sont epuises: Pts vie = Dommage, mort 
rapide. 

Remarques: 

1) HP 41 doit etre en mode degre. 

2) Ne pas sortir des limites du jeu (le programme ne teste pas les 
valeurs de X ou de Y s= ou == 10). 

3) Limiter le nombre de cases de deplacement a 1 ou 2, slnon epui- 
sement rapide des points de vie. 

4) Le jeu sera plus difficile (et plus interessant) si on ne se deplace 
que d'une case a la fois. 

5) La case 1,1 est en bas a gauche et la case 9,9 est en haul a 
droite. 



H p41 



83 -H6 fllEd <l 

84 TONE 5 

85 PROMPT 

86 STO 88 

87 FIX 8 
88»L6L 81 
85 I 

18 STO 81 

11 STO 82 

12 5 

13 STO 83 

14 STO 84 

15 "HIV. DIFF.l 

16 PROMPT 

17 -3 

18 * 

19 33 
28 ♦ 

21 STO 85 
22«LBL 82 

23 "DBF X:- 

24 HPXL 81 

25 •h.Y:- 

26 flRCL 82 

27 TONE 5 

28 RVIEU 

29 PSE 



38 -BUG X:- 

31 PRCL 83 

32 "F.Y:- 

33 flRCL 84 

34 TONE 5 

35 BVIEU 

36 PSE 

37 -PTS VIE =" 

38 TONE 5 

39 RRCL 85 
48 BVIEU 
41 PSE 
42«IBL 83 

43 -DEPL8CEMENT 

44 TONE 5 

45 flVIEH 

46 -DIRECTION ? 

47 PROMPT 

48 EHTERt 

49 -BISTONCE V 
58 TONE 5 

51 PROMPT 

52 ENTER? 

53 Xt2 

54 ST- 85 

55 RDN 

56 P-R 




57 1.45 

58 « 

59 INT 

68 ST* 81 

61 RDN 

62 1.45 

63 * 

64 INT 

65 ST» 82 

66 RCL 85 

67 X<8? 

68 GTO 1 1 

69 RCL 81 
78 9 

71 X=V 

72 GTO 12 
73»LBL 84 

74 3 

75 STO 86 

76 RCL 8! 

77 RCL 83 

78 - 

79 X>8' 
88 XEO 87 

81 X<8? 

82 XEO 88 
83»LBL 85 



85 STO 86 

86 RCL 82 

87 RCL 84 

88 - 

89 X>8' 
98 XEO 87 

91 X<8? 

92 XEO 88 

93 RCL 81 

94 RCL 83 

95 X=Y? 

96 GTO 18 
97«LBL 86 

98 RCL 85 

99 X=6' 
188 GTO 11 
181 GTO 82 
182«LBL 87 

183 XEO 89 

184 ST* IND 86 

185 RTN 
186«L8L 88 

187 XEO 89 

188 ST- IND 86 

189 RTN 
U8«L8L 89 



111 RCL l 

112 9821 

113 • 

114 .211327 

115 * 

116 FRC 

117 STO 88 

118 .S 

119 * 

128 INT 
121 RTN 
122«LBL le 

123 RCL 82 

124 RCL 84 

125 X=V? 

126 GTO 13 

127 GTO 86 
128«LBL II 

129 "PTS VIE = l 
138 TONE 3 

131 flVIEN 

132 PSE 

133 GTO 14 
I34«LBL 12 

135 RCL 82 

136 9 

137 X=Y? 



138 CTO 15 

139 GTO 84 

148»LBL 13 

141 -WWHPCE ..• 

142 TOUE 5 

143 TONE 4 

144 TONE 3 

145 OVIEN 

146 PSE 
147«L8L 14 

148 "MORT RBPIJE- 

149 TONE 3 
158 HVtOr 

151 PSE 

152 CTO 16 
153'LBl 15 

154 "..BRBVO ..• 

155 TONE 5 

156 TONE 7 

157 HV1EN 

158 PSE 
I59«LBL 16 
168 .END. 



LES MOTOS ENDIABLEES 




5...4...3...2...1 PARTEZ!!! 

Les motos sont lancees a pleine vitesse. 

Le motard rouge essaie d'entourer son adversaire .Le 

bleu ayant decouvert la ruse, projette son rival contre 

la paroi... 

Cela vous tente, alors tapez ce programme sur votre 

DRAGON 32 et foncez... 

Jerome PAILLET 
P.S.: Deux vitesses au choix. Pour les grises de la vitesse rempla- 
cez les lignes 160. 170. 180, 190, 200. 210. 220. 230, 420. 430. 
440, 450, 550, 560. 570. 580 par des REM et tapez les lignes su- 
vantes: 

410PSET(X3. Y3. 4) 
540 PSET(X3, Y3, 3) 
Option manettes ou clavier. 



10 DhTA eD.eP..B3.BD.BP..C5.39 

29 fop p=29993 to 20006 

33 READ PS POKE P.VfcC "S1H"*P* - 

40 NEXT 

50 P0KE41I.4.H4E 

60 POK.E412,!.H20 

70 P0KE410,5,HeD 

30 P0KE418.57 

90 G03UB 930 ' PECLE OU JEU 

100 P0KE65495,9 'RCCELERPTIGN 

110 CLS'PMODEl- r SCREEN 1,8 PCLS 

120 COLOR 2'LIHE<0.2)~:2S3, 191 i. PSET, B 

130 XI*128'Y1*38 X2-128 Y2=170 

140 REM DEBUT OU JEU 

130 XC 1 >»0 ■<< 1 ;«4 i •/,'. 2 ?-9 1 f< 2 >•>- 4 

160 IP X' 1 ;-8 RNO ■<> 1 ,*-4 THEII PRESET' X1-2-YI+2 <.PPESET'X]+2, Yl*2> PSET' XI , Yl .4 > 

-GOTO 203 

170 IF XM >"9 RMD •(' 1 >» + 4 THEN PRESET' v.\ -k, Yl -2 ; PRESET 111 + 2, Yl-2 >■ PSETCX1 . YI.4 > 

GOTO 209 
180 IF X<l>*-4 AND Y'1>«0 THEH PSET'.Xl . YI,4>.PPE3E \' Xl+2. Yl-2> PRESET Xl+2, Yl+2 > 
-GOTO 203 

190 IF XU/-+4 PiHO Y'. 1 )"8 THEH PSETf XI • Yl .4 >■■ RPESETfXl-2. Y1-2)'PPES£T'X1~2. Yl+2> 
200 IF X'2;-0 RNO Y'2j=-4 THEH PSET' X2. Y2 . .J J -PRESET' X2-2- Y2+2 > PRESET X2+2, Y2*2 ) 
'GOTO 240 
U0 IF KX2M RNO «2J-*4 THEH PRES£T<X2-2,Y2-2) PRESET' X2+2.Y2-2> RSETX2, Y2,3> 

GOTO 240 
228 IF X'2>— 4 fiHO Y'2>-0 THEH P3ET' X2. Y2, 3 ; PPE3Er'.X2+2, Y2-2>' PPESEK X2+2,Y2+2> 

GOTO 249 
230 IF X'2,-+4 PNO Y'2i=0 THEH P3ET' /.Z. Y2 . 'i > PPESE V. X2-2 . Y2-2 ) PRESET' X2-2 . Y2+2 > 
243 IF F-2 THEN GOTO 630 

250 IF PEEK'341 >-223 THEM Y' 1 j— 4 XM^-0'GOTO 360 
268 IF PEEK' 342 j-223 THEM Y' I >~*\ X<1>=0GOTO 360 
278 IF PEEK'. 333 )«233 THEH X' 1 )— 4 Y' 1 <-8 GOTO 369 
2^8 IF PEEK-: 345 /»239 THEN X' 1 '"'I K1W GOTO 369 
293 GOTO 360 

309 IF F-2 THEM 710 

310 IF PEEK<!343>-223 THEH '// 2 >*- 4 Y' 2 j-9 GOTO 490 
328 IF PEEK' 344 >=223 THEH //2.>«*4 Y' Z >•=% GOTO 498 
330 IF PEEK/ 340 >-253 THEH Y' 2 >— 4 >X 2 >-8 GOTO 498 
340 IF PEEK' 333 i-251 THEH Y< 2 ^"4 ■•/,< 2 '-9 GOT'.' -r.-e 
338 GOTO 490 

368 REM 

378 X3-X1+X' 1> Y3=Y1+Y'l) /.4--S.l*y< I j'2 Y*»Yi*VClV2 

389 IF PP0IHT'.X4,Y4>Ol THEH R»- :, POUGE" GOTO 760 

396 IF PPOINT'X3.Y3r >t THEH RS^PTJGE- GOTO 760 

490 PSET(X4,Y4,4> 

419 REM 

429 IF y.', l )-0 HHP V( 1 >— 4 THEH PSET' /.3-2. Y3+2 , £ • PSET' A'i*l. Yi+2 . .-. ■ r :' I ■ : 

GOTO 460 
438 IF Xf 1 )«=8 RHP Y-' I --+4 THEtl PSET' X3-2, Y3-*i, 2 i P'-.ET-. X3+2. Y3-2, 2 . PSEKX3, Y3,2> 

GOTO 468 
4405IF XCD— 4 RHP •('. 1 '-8 THEN P^ET< V.'i, Y3. 2 > PSET< X3 + 2. Y3-2 , 2 ) PSET' y.1'2, Y3+2- 2 > 

GOTO 460 
438 IF XU >-+4 HHP Y( 1 --8 THEtJ PSET' y.'i, Y3- 2 > P8ET< X3-2, V3-2, 2 ) PSETCX3-2. V3+2-2) 

GOTO 460 
468 XI -X3 
473 Y1-Y3 
488 GOTO 388 
490 REM 



309 X3=X2+X'.2> ■r , 3=Y2+Y'2)X4-X2+X':2>-'2.Y4-Y2+Y<2>-'2 

510 IF PP0IHT<X4,Y4X>1 THEH R«= B BLEU" GOTO 760 

528 IF PP0IHT(X3.Y3)< >\ THEH M^'BLEU" GOTO 760 

S30 PSET(X4,Y4.3> 

540 REM 

550 IF X<2)"=9 PHD Y'2J=-4 THEM PSEKK3-2. Y.i+2 . 2 ) PiEl'. V. J+2. Y 3*2.2 ) PSET( X3, Y3.2) 
GOTO 390 

360 IF X<2)-9 HMO Y(2>-*4 THEN PSEKX3-2. Y3-2.2 > PSEKX3+2-Y3-2.21 PSET<X3.Y3,2> 

■GOTO 390 

370 IF X<2)=-4 fiHD y(2M THEH P8EKX3»y3»Z) PSE'K X3+2- Y3-2,2> PSEKX3+2. Y3+2.25 

:GOTO 598 

580 IF X(2>=+4 RHP Y'2)-0 THEM PSET- X3. Y3-2>PSEKX3-2. Y3-2,2)' PSET1 X3~2.Y3*2.2> 
GOTO 590 

598 X2»X3 
C 698 Y2=Y3 
v 619 POKE 410,30 

629 GOTO 168 

638 J-J0Y8TKC8) 

640 K-J0YSTK<1 > 

658 J2"J0YSTK<2) 

660 K2"J0Y3TfC:3) 

679 IF J<5 THEH X'. 15— 4>Y( 1 >>8G0T0 368 

638 IF j>38 THEH X< l )»+4 ■ Y< I >=8 GOTO 360 

699 IF K<5 THEH Y< 1 )— 4 x< I >-8 GOTO 368 

780 IF K>58 THEN Y( 1 >«4 X( 1 )-8 • GOTO 368 ELSE GOTO 360 

719 IF J2<3 THEM X(2>— 4 ■ Y<2>=9 GOTO 4^>9 

728 IF J2>58 THEM X<2 )«+4 ■ Y<2>-8G0Tn 4^0 

738 IF K2<3 THEH 7(2 )=-4 V.( 2 >«8> GOTO 490 

748 IF K2>58 THEH Yf2)=+4 X'2>=« GriTO 4<*n 

7^0 GOTO 490 

2 6 pH0r3^l" eLEU " ™ EM C " ?CLE ' x2 ' Y2> ' R «><5H2,RHD(3Hi ELSE CIRCLE- XI ., 1 1.RNCK3J4 

778 R*fl+1 IF R<28 THEN 80UNORHIK 255 >,!■ GOTO 760 

789 fl=0 

790 CLS RH0<3- PP1NTS103,"LE ".H*." R PEROU."i 
899 PPIHTiiI68. , '0N RECOMMENCE "•". 

813 I«=IHKEY* 

828 PPIMT?4S0-64+^,."LE3". 

;-:--m pplHTr.4Sn--:4 + ^ . "MOTOS" • 

449 PRINTe480-64+I5/"ENT>inBLEES"j 

330 P-PEEC: 65288) 

868 IF P=254 OP P«253 qr p=i?6 OP P*125 THEH GOTO 113 

078 fl=R+l IF R=10 THEH R=9 SO'JH0255. 1 

SRig P-'P0JNT<9.9))-I 

393 PRINT»430-64,STPINGV ^2, 143+P*16 i. 

983 IF !»' ■'■0" HMD [•<>"N" THFM H\a 

919 IF !•■"»" THEH POKE65494,0,EHO 

929 SOUNCC-ri t iOUH0198,l SOUNt-138.2 v:i"PN[.,",--', . ] GuTip 1 ).t 

938 CLSPPINT*430. " LES H0T08 ENDWBLeeS" 

949 PRIHTtt480," PHP "EPHME PPILLET" 




SUR PRfiGON J2" 



930 PPIHTC'439. 

960 FOP 1=1 TO 

970 PRINT 

933 SOUND! >1 

990 HEX! 1 

1000 FOR r-i TO 1998 NEXT I 

!3!8 FOR 1=1 TO 8 

1029 PRINT 

193" SOUHOl,! 

1040 NEXT I 

IO50 CLS PRINT PRINT- r ^l« d 

lO-".n print PPIHT" runout iQUEUR MIT EVITER 

LE9 MUP8 i- 1 n '"'I i ENTOURER i 'ENNI 

-Mt."" 

1078 PRINT" V0ULE2 VOUS DU 90N ■" 

1399 1MINKEY0 

1090 U t* ■'■'■.'■' RND t* "U" ni'-M 1080 

1180 IF !«-"((" THEH 80*189 ELSE SO-37 

1 119 PPIHT" V ' ."■ V'.'U HI RISER" 

i 128 PRINT"- LE aRVIER 

I i )Q PRINT"- i i:\- HflHE TTEi i II >■ 

1140 PPINT 

1139 I»"IHKEY« IF It- AND [•< "H" n-ni mm. 

n«o if i««"C" tmeh p»e ei a i . 

1170 IF F-0 THEH I220 

1180 PRINT" if i mi- (■ ,i M in MftNETTt DROITE. 

1 190 PRINT" i G lOUEUR Bl EU « i fl MflHE ill GflW hi-. 

1200 PRIMT- friPPir .jti« touchy Pour PWtir'j 

1219 U-IHKEY* IF !•»•" THEM 1210 ELSE RETURN 

1220 PRINT" TEI.P. NE SEPT fl RICH OE LRI3SER UN OOIG 
SUR i-Nfc T0">;HE 3 1 HON O-EMP 

FCHEP L'hOVERShIRE OE TOUP-MEP. " 



DRAGON 32 



1. :;>.' 
1248 
1230 
1269 
1278 
i. . .i 
1298 

i tea 



Pf III!" 

Ih IHKEYO""" 

CLS 

PRINT PPINI" 

PRINT PRINT" 

PPIHT'" 

PRIHI'TL DU 

PRINT"0 

PRINT"M 

PPIHT PPIHT 1 

PPIHT" 

PPIHT"'* 

PRINT"<- ... 
PRINT"-> ... 
PPIHT GOTO 1 



I i ROVCI >u n [SI " 

. .. POUR HONTER" 

i p, POUI 01 .i ' Nt-RI - 

... POUI G m ■■ 

(one* 

LE BLEU uin i i - 

. . , POU HONTI R" 

. . . P f'l ■' t.NI-fcl " 

... POUR GAUCHE" 

... PO"jR rPOITE" 
200 



MACHINE INFERNALE 



Une machine infernale menace une paisible ville. Vous 
seul etes capable de la proteger. Pour cela. il faut 
grimper les etages jusqu'au levier de droile, qu'il faut 
actionner pour acceder a celui de gauche. Une fois 
celui-ci atteint. vous vous retrouverez instantanement 
en bas. car il vous faut accomplir cette manoeuvre trois 
fois pour sauver la ville... 

Olivier TILLEMENT 
Mode d'emplot: 

Ce jeu peut-etre utilise sur un VIC 20. avec une extension a ou 
16K0. avec un (oysltck 

Le premier programme est destine a charger le code de I'extensron, 
tl permet de retrouver le meme code qu'avec un vie 20 normal 
En recopianl le programme, attention. Pour dessiner les echarfauda- 
ges. tous les espaces vides a I'interieur des guiiiemets doivenl eire 
tapes en faisant SHIFT et SPACE en meme temps. (D'oii I'emploi 
de 96 a la place de 32 pour eflacer des points.) Attention aux 
p ages 




:3 -£--->::-.:;. :s <:- 

II PO«<E&*2,32- p CK.E36369-2*0-PaKE3Sa6S,F'EEKir36eSS)OR]2e 

:. --_■-:- -7. v;; =txe3S=ss, :zz-PZ<iZ. :23:?o<ei.8-poxe2. :92 3vsb 



v\c 



20 



l 

2 -E->»«»r-.5::'.E^ :;••« 

3 WTPZ3S.2.239, 1.239,2,236.1.236,2,238, 1,236.2-234, 1,234, 2. 236.1 

4 :pT=234,2,231. 1, 231, 2, 234, 1,231.2-232,1.230. 3. 234, 3, 238, 3. 239, 1 

5 3RTH238. 2. 236.:, 234. Z, 231. 1,238. 3.-1 

5 0HTR231, 1.231 ,1-234, 1,234, 1.236, 2,238. 1-239. 1-236. 1,236, 1.236- 1.238, 1,234, 1,23 

7 DPTR231, 1,231 -1,234. 1,234, 1,236, 2, 238, 1.239, 1,236-1,236,1,236.1-238,1-234,1,23 

B DHTa234.I,234-1.3,238.2--l 

:■: ::;.3E-:? -:--■;-;-? =;o-s;. , iE/ - 

11 REM 

:2 »Er««GSflPHiC!j£S»*< 

13 P3XE36S69.240 PQKE638. 123 G-6I44 1-7167 

:3 =0Rj-GTDG*iei5- i-i+i paxEj-PEExci+assae; next o-si44 

"I -Cs;-254TQ254-!S7 REflCF PQXEG-i .F -NEXT 
' Z*-?2Zl- 233. 235, 233-233. 235- 233, 235, 24, i 
193 
23 - a 7=8.3.3.0.8,24.S0.24,24.0, 12.72. 184.48,38.103,255,8.0. 1,128. 32, B, 64, 64 

:? :=—: -■*.€=. £3, ?a. 2 13.233 -231. 133, 129. 233. 129, 233. 123,233.129,235 
31 DRTR2*. 28. 33, 2*. 24, 2*. 23, 32, 24, 63. 90. 24, 184, 72, 2ee, 24 

12 :"S24.2=.;g,2*.2* i-, 36.44. 233.233.233, 233, 299.299.299,293 

33 Efi73233. 233 . 233 , 233 . 233 , 235 . 233. 233 

34 DRTR255, 235, 239.295.299.299, 233. 233. 3. 16.40,80,40, 4,2, 1 ,233.83,233. 0.8,0, ( 
33 DHTBl.2,4,43,88,48, 16,0,64.32,16, 18,3, 18,4,0,3,4, 18,3, 18, 16,32.64 
36 IWTP3, 1 32. 234, 231. 238. 118. 58. 2«. 97, 3«. 60. 126. 21 9. 233. 231. 153 
33 : C-;E36?€3.234:P0XE36879,13 



M l '<!! i 



67 REK 










€ = S£-,,. : — = _: . .... 










78 EC*8-PRIN7"^«3 


< 








71 PRINT"-!! |||r ^|<|||l 


<N 








72 PR I NT "1 ( < 




















M PRIKTn ( < 










76 PRINT "H ( 










78 PRINT"!"" " > i 


DIM 


iir c < 


< 


c 



I PRINT"! -<| 

81 PRINT"! < < 

62 FrjRQ-8164T08tS6 P0KEQ.33 NEXT P0KE8I63.39 P=96 fl-96 P0KE7798.39 

B3 P0XE8893.46 

84 RESTORE QOSU8S88 

83 REM 

86 R£r*«»VflRIfi8LES«»» 

98 X-8I62 01-37151 02-37132 P0KE37I34, 127 Z-41 T-7791 D-l T3-8130 B5— I P3-96 P- 



114 PEtt*DEBUT DU JEU«" 

115 RE«-< 

116 RErt- 



0< 



117 REr«nVT BU'MEROS** 

119 IFZ-357HEN135 

128 Tl-PEEKfOl; T2-PEEXC02) BZ-3GN(TlRNDt6> B3-S0H'T2fiHD128) B8-SGN(TlfiND4> 

124 IFZ-33THEN133 

123 PCKEX.fi P0KEX-22.fi 

138 X-K-B2-D3 fi-PEEK^X' B^EEKtK-StZ) IFPGEK<X*22>«9l6TH£fe - • •*, 

131 IFfi-480RO-ITMEH5ee 

133 lFPEEK'./-44j»96ftnDII8*BTMEr)Z*33 OR-6 X-X-22 

133 IFZ-33TWENQR-0R*! IF0fi-3THENZ-X*22 Z-41 POKEX-44,36 

137 IFROBORB-33THEN»tf-D2*D3 ft-96 

138 IFI>2«BTHENFR»FR-l Z=42 IFFP-2THE»Z»41 FP*0 

139 IFD3-8THEMFT-FT.J 2=34 IFFT-2THENZ-43 FT-0 

140 POKEX.Z P0XEX-22-36 
142 IFX-7310ThEiir38 

144 IFX-7783fiNBRC03THEN782 

148 REn - 

149 -f,::«... BRUIT • ••• 

138 PG-PG-ZM IFPrj>33THEH2M«-2 

132 P0KEMC138-PG iFPGCSTHENZfW 

138 REM 

139 REMMnVT FO'JLLETl* 

163 POKET.P P0KET+NJ.1 T-T-D P-PEEK(T> 1FP096TMEH328 

178 PW.et.hv P0ket*NI,3 

jjl roME 779e,W MV-39 WB-UB«I IFUB>1 THENU8-0 UV-33 

17* REHMftVT BOULLET24 

173 IFB3-1THE«M3=M3»1 IFM3>N3THENB3-0 MM 

176 IFB3-1THEN195 



188 P0KET3.P5 P0KET3*NI.l T3*T3+B3 P3=PEEXCT3> IFP3096THEN3*e 

130 FC-.ET3 ~/ FC ET5--Ji :■ 

193 fiEM 

194 REtW»rtVT BOULLET3* 

153 IFB6»lTKEHfi6-nS+l 1 FM5>NSTHEHB6-3 r6>8 

196 IFE6-1THEN215 

280 POKET6.P6 POKETStHI.l T6-T6*M P6=PEEK<T6> IFP6096THEN368 

285 IFPEEKU6*22)=45THEU76=T6*21 36*22 

218 P0KE76,U'i':P0KET6*HI,7 

213 REtt 

214 RE.1»«1VT BOULLET4* 

215 IFB7=lTHEM17»rr7+i:iFnr>>N7ThENB7-a K7-Q 

216 IFB7-ITHEH233 

223 FD<ET7, P7 PDKET7+HI , 1 T7-T7+D7 P7-PEEK(T7) - 1FP7096THEH588 

225 lFPE£K f .T7+22.'=45Ti«HT7="T7+21 D7^22 

238 P0KET7,WV:P0KET?+HI,7 

233 REM 

234 REMtnvi B0ULLET5* 

235 iFS3=lTHENf13=M8+l IFHS">N8TtCHSS-8-M8-e 

236 1FB8=1THEN498 

248 P0KET8.P8 POKET8+NI,l Te-TBfDS -P8*PEEKCT8> IFP8096THEH688 

245 IFPEEK<T8+22)=i?TS-ENT£=75-21 08-22 

258 P0KET8,WV-P0KET8*HI,7 

43C IFa=773?TKEN2888 

498 KI-KI+i:Dfl=Dfl+l:lFKI=3THENKI=8 P0KE7722.33 -G0T0168 

491 IFX=7720THEH1588 

492 P0KE7722,52-GOT0n9 

493 RFJ1=«**==== S= = ==S 

494 REMWFJN DU'JEU't* 

495 RErl"= =========«= 

498 REM 

-33 ; E r-.^£;^; -;.:sT = ST» 

588 0=l-De=SGSCTlPtJD4j Dl=SCHtTiBND8J -X-X-22»CD1-D0> ■ fl^PEEKtX) -B»PEEKtX-22) 
506 IF<B=330RB=33)ORB=32uRR=32T«HX»X-C2+D3*22f<Dl-M);ft-48-(30TOt4e 

537 IFD2=3l = j3=07.-I'.;-0 

589 G0T014B 

515 R£r!=«=-= ::«==:. 

516 REMOTEST BOULLETS* 

517 rek=======^======= 

516 REK 

315 -V**':Z::-^' ;»*» 

528 POXE7791.36- IFF=40TKENI!P=DP+1 : IFCP>1THEHD«22 -G0T0178 

521 IFP=46THENT=T-D:D— 1 :p-48- GOTO 170 

522 IFP-390RP=53THEHIJ-l-T=779e : 0OT0178 

523 IFP=48THEN178 
324 IPP033THEN2888 

535 P=48-T=T-D-D=rGOT0178 

538 REM 

539 RErtfMBOULLET 2W* 

S 4-7 ■FF3 = 487.-ENr°5 = rP3-'l \ FZFt> 1 T -'EsD5=22 ■ GOT0198 

341 IFP3=390RP5=53THENI)3=1 T5=7798 B3=lK5=INTCRNDCl)*ie)GOT0I9e 

542 IFF5=4eTHENI98 

543 IFP5=46THEKT5*T5-D5rj5=-1 P3=48 G0T0198 

544 IFP5O33THEN2880 

555 P5=48,T5=T5-D5-D5=1 G0T0198 

558 REM 

33^ - = "••*:;■..'.. E" 3»»« 

568 IFP6=40Tt£NGOTO210 

ZSl JFPf. = ;-:5-:~--£ = 537^EriI>.= l 76 = 77^ £5=1 N6»IHTCRHD( 1>«0) -G0T0218 

563 IFF5=44TH£!iT6=T6-C5 D6"-1-G0T0575 

56-1 JFFS^-33T-E!^L-eC 

365 IFD6=10RE6=-lTHENT6=T6-D6Db«22 G0TOS75 

566 T6=T6-D6 B6=I 

578 IFP6=40THENOOTO2I0 

575 P6=96 G0TD21B 

578 REM 

573 REMfMBQU-LET 4»*« 

588 IFP7=48THENC0T0238 

581 IFP7=35GSP7=53TKEND7«1 T7=7798 B7-1 ■ N7-INT(RHDt 1 )»48) ' G0T0238 

533 IFP7-44THENT7-T7-D7D7=-1 G0T0595 

334 lFP7033THEH28ee 

585 IFD7-10RD7=-lTHENI7-r7-D7 D 7-22 ■ GOT 0393 

586 T7=T7-D7 D7-1 
595 F7=96 : G0T0238 

53S REM 

599 REM«*«BOULLET 5»»» 

E-Ce : tc E = -:,?:=F;=T;.;-~E.:;:.OT025e 

681 IFP8=39THEND8=1 T8-7798 B8=l N8sINURND(l )«38) G0T0258 

683 IFP8=44TMENT3=T3-D4 D3=-l G0T0618 

6e4 IFP8O33THEN2088 

669 IFS8»10RD8"-1THEHT8=T8-D6 C8-22 00T0618 

686 TS«T8-CS:D8i=l 

618 P8=96 COT0258 

688 REH ■ " » ■■ 

53! REfmnLEVtCRSOH 

69S REfl 

639 RErmtEVIEP M !♦• 

708 G0SUB818 

701 P0KE7789.49 P0KE7729.99 P0kE7787,96 P0KE7688,5I G0T01 19 

782 REM 

735 =-EK»«LEVIEP. N J 2** 

712 G0SUB828 

713 POKE7686-50 POKE7702.33 RC=RCt I P0KE7737*RC,48 P0KEX.96 POKEX-22,96 IFRC-3IH 
EN119 

714 P0KE7729.96 POKE7707,181 P0KE7789,47 

715 P0KEX,96rpOKEX-22,96 X=8162 Dfl=0 0OT0119 
73« REM 

808 nTJ=36873 ni-36878 P0K.EMI.15 

881 R£flDRXlFfi>;=-lTHEM885 

882 POKErfU.RX PEFiDfiC F0RT=1T0RC«98 NEXT POKEHU,8 FORT-1T02C MEXT 00T0881 
605 POK£[flJ.0:RETURN 

818 FORRZ=225T0234 POXErlU.flZ FORfiX-lTO40. NEXT POKEriU, 8 NEXT RETURN 

828 F0mZ-223T0239:P0KEHU,RZ FORfiX»lT04B NEXT -POKEflu.e MEXT 

323 F0RfiZ=233T0r2^.irEP-i;POKEHU.flZ:F0RflX-lT040-«XT-POKEr1U. 6 NEXT RETURN 

848 REfl 

849 REtHREGLE DU JEU.» 

858 PRINT"nW«Lft nTCHINE 1MFERHRLE*" 

851 PRINT" ♦••0»»0»P>0»»">">Tt«->«» i ' P0KE36879.73 

333 FRINT"«OaaO«.UHE MRCHINE HENRCE LRPRIX BE Lfi VILLE..,' 

856 FRIUT".BE7RUISEr SON 'XOEORB'" 

357 FPIMT'.RTTEJJTIOd RUM FIECES'" PRINT"! -EVIIEZ LES MfJNSIRES KftrllKfiZES" 

858 PRINT" -C0N5TPUISEZ UN PONT SOLIDE." 

859 PRINT"»«aBOr#« CHfiNCE'Lft VILLE COMPTE SUP VOUS..." 
878 RETURN 

1498 REM 

1499 R£M««FIN DU JEU»* 

1588 RESTORE GuiUE388 FOPT=1TO70 P0KE36879. T POKE36876, 138*1 FORRX-1IO40 NEXT 
1918 P0KE3687C B MEX1 

1399 PRINT-.-aWOBWB 

1600 FRlNT"OMBi*M70IM»h-lB« »TlrilI HBf 

1610 PRIHT-JW.R VILLE EST SRWEE" 

1628 FRIHT"M -END 

1998 REM 

1999 REIUPEPRRT R -8'« 

2880 POKEX-22'38 POKEK, 37: RESTORE: 003(0886 

2.?J4 FRUIT ■^CWUW - 

2005 PRIHT-rtCELfl EST IMMBI1 ■^ll« ,-WWr 

2010 IFRC-2THEH2386 

UW IFRC = irHEH22e0 

2090 IFDR^98TMEN2405 

2113 IFDfi»>98THEN2415 

2200 IFDft-'.105TMEN£4i3 

2215 IFDB->183THEN2433 

2300 IFWKI88THEH2448 

2313 IFUH-^10OTHtN t 4-*3 

:ni-t- 
2418 FPUH"»»tnPES fWUVHIS" C-UT02469 
2413 FFUiT-mMmjvfilS" 00T02489 
2423 PRINT"»a»»irPE;. HQYEH" OOTOS 
2433 PRIHT"«MflCnflH" GC1T024&9 
2440 PP|riT'«M»f -h\ 81 NRL" G0T02489 
2445 PPINI"J09»(BIEN' 6OT02489 

2489 PPINT-Bft- - 

2490 GO-SUF5O0 

2499 'Finr-oo 

2:00 ooToro 



* 



54*6 C9 
5467 FE32 
5469 C0 

34sn wamst 

5460 BF 
S46E E603 
3478 CBI8 

5*72 cs 
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AFFICHAGE OU CODE OPERATION 



5473 FE43 
5475 F29B34 

5478 E3 

5479 2688 
547B 6F 
347C 28 
5470 29 
347E 29 
347F 81FC33 
54S2 09 
5483 0684 

5485 7E 

5486 FE23 
5488 2807 
S48A 12 
MSB 23 
34SC 13 

5480 1BF6 
348F El 
5498 C9 
5491 21 1057 

5494 7E 

5495 368F 

5497 23 

5498 77 

5499 El 
549ft C9 
5498 FE4C 
5490 288C 
349F 0646 
34A1 87 
S4A2 87 
34A3 87 
SAA4 47 
54A5 302857 
54ft8 88 
54A9 18CD 

5MC mamst 

54AE 0684 

: am am 

5482 87 
S4B3 87 
S4S4 47 
5485 3A2137 
54B8 FEB4 
54BA 3884 
548C C637 
54BE 1SES 
54C8 BF 
54C1 1SSS 



54C3 87 
54C4 C8 
54C3 B6FC 
54C7 FEBE 
54C9 2816 
34C8 FE1F 
54CD F08E55 
S4D0 2889 
34D2 3D 
54D3 CDBESS 
54D6 3E27 



net cooti 

83898 

83188 

83118 

•3128 

83138 

03140 

83158 

83168 

83178 COD4B 

83188 

83198 

83288 

83218 

83228 

83238 

83248 

83258 

83268 CDD68 

83278 

83288 



83318 
83320 

83338 COD7B 
03348 



8341B CDD75 
03428 

VU31 coses 



dec 
nee 
no 



INC 
DJNI 
POP 



RLCA 
RLCA 
RLCA 



ML.HL 
HL.HL 
BC. TCODES 
hl. BC 



HL.OPA 
A. "«_) 
(MLJ.8FH 



4CH 

Z.C0D88 

46H 



O.B 

coDie 

ft. (XXX) 



CODES GROUPES 



CODES R REPETI 



BUM 


12 


83710 




u> 


(DE).A 


9*0 1 


13 


•3728 




IMC 


DC 


-.'.hi 


C9 


83738 




RET 




sua 


0626 


03740 


0P4 


sua 


2EH 


MOD 


47 


83738 




LD 


Bifl 


sue 


F2FB5A 


83768 




JP 


P. 0P6 


341 1 


3E28 


83778 


OPS 


LD 


0. ' C 


54G3 


12 


83788 




1_D 


<D€>.A 


sue* 


13 


03798 




INC 


DC 


94E9 


7B 


B3BB0 




LO 


B. B 


S4EG 


C61E 


03810 




ODD 


A. 1 EH I26H-8 


SUES 


CD8E55 


83828 




CALL 


OPSP 


54EB 


3E29 


03830 


0P51 


LD 


0. " >' 


S4ED 


12 


03840 




LD 


(DE).A 


: iux 


13 


83858 




INC 


DC 


MEK 


C9 


83868 




RET 




541 1 


2884 


83878 


0P6 


JB 


NZ.0P7 


S4F 2 


B6F5 


03880 




LD 


B.BF5H 1<C) 


S4F4 


1BEB 


83898 




JR 


OPS 






03918 


i CALCUL ET 


RFFICHOGE D'UNE ADRt 


54F6 


1812 


03930 


0P7 


DJNI 


DPS 


54F8 


7E 


83948 




LD 


A, (HL) 


S4FS 


23 


03950 




INC 


HL IDEPLOCET 


54FD 




83968 




LD 


B.0 


54FC 


87 


03378 




OR 




34F0 


F2B255 


83988 




JP 


P.0P78 


S9H 


B6FF 


03990 




LD 


B. 0FFH :B HEME ! 


ssbb 


4F 


04080 


OP70 


LD 


C.A 


5503 


E3 


0401 B 




PUSH 


HL 


: ..- -■ | 


89 


04028 




POD 


HL.BC 


r.sws 


CDR455 


04030 


0P71 


CALL 


0ATA16 


SSBB 


El 


84848 




POP 


HL 


5989 


C9 


04050 




RET 




SSM 


1884 


04860 


OPB 


DJNZ 


OPS 


550c 


7E 


04070 


DP81 


LD 


A. (HL> 


r.rjat) 


23 


04080 




INC 


HL ;DATft 


59BE 


1B64 


B4B98 




JR 


0P22 : V0LHX2 


5531 


1089 


04100 


0P9 


DJNZ 


OP 10 ' 


SSI 2 


4E 


84110 


0P91 


LD 


C. (HL) IDATA16 


53 1 3 


23 


04120 




INC 


HL 


53 1 1 


46 


04138 




LD 


B. (HL) 


5313 


23 


04140 




INC 




531E 


E5 


04158 




PUSH 


HL 


5517 


C5 


04160 




PUSH 


BC 


5518 


El 


04170 




POP 


HL 


5319 


I8EA 


041B0 




JR 


0P71 


SSI B 


1889 


04190 


OP10 


DJNI 


0P11 


53 1 D 


3E28 


04200 




LD 


a, " C KADRS) 


551F 


12 


04210 




LD 


(DE).n 


5S2t 


13 


84228 




INC 


DE 


5521 


CD8C55 


04230 




CALL 


0P81 


5334 


18C5 


04240 




JR 


0P51 



5568 85 
5361 03 

5562 85 

5563 3A2857 



3SEB 2B43 
356F 1085 
3571 B7 
5372 87 
3373 87 
5574 1833 
5576 1004 
5578 3E1F 
3570 1812 
557C 1004 
557E 3EBE 



5589 1S27 
538C CS1F 



84318 
84528 
B433I 



04618 
84628 
84630 0P21 



84698 0P22 

84788 OK 

■4711 

■4721 

04730 0P24 

04740 

■4731 

04760 0P2S 

84 770 

04788 

04798 



DJNZ 
RLCA 
RLCA 
RLCA 



REDERCW :'■■ 



VALHX2 

0P24 

ft. 1FH : BEG I 

OPSP 

0P25 

ft.BEH : REG B 



VALHX1 
O.B 
A. IFH 

I NOfl DE RECISTHE 



BAS6B OPSP 



NC.COO90 

A.37H 

COD75 



B. 8FCH 
8EH 
Z. 0P5 



ION 








5526 


1889 


042S0 


OP11 


3328 


3E28 


84268 




332A 


12 


84278 




553B 


13 


04280 




532c 


CD1255 


04290 




S92F 


1SBA 


04300 




3331 


1804 


04310 


□PI 2 


5333 


861C 


84328 




5533 


1884 


84338 




5337 


1003 


B4340 


DPI 3 


3339 


861D 


04358 




5338 


7E 


04360 


□PI 3 


533E 


23 


84378 




3330 


321F57 


84380 




5348 


180A 


84390 




5542 


1004 


84408 


DP14 


3344 


861C 


04410 




3346 


1884 


04420 




5348 


1016 


84430 


□PIS 


SSM 


861D 


04440 




SS4C 


3E28 


04458 


□PIS 


5341 


12 


04460 




354F 


13 


04470 





0P12 
A." <■ 

(DE).ft 

DE 

0P91 

0P3I 

0P13 

B. 1CH 

0P131 

0P14 

B. 1DM 



559* 


87 


04878 




RLCA 




5591 


0680 


84888 




LD 


B. 


5393 


4F 


84898 




LD 


C.A 


5594 


E5 


84388 




PUSH 


HL 


1,5 3S 


21C055 


04910 




LO 


HL.T0P1 


559S 


89 


04920 




ADD 


HL.BC 


559 9 


EDA0 


04938 




LDI 




3398 


7E 


04940 




LO 


0. (HL> 


559C 


FE28 


04950 




CP 




559^ 


2882 


84968 




JR 


Z. 0P2 


SSM 


EDA0 


84978 




LDI 




53A2 


El 


84988 


0P2 


POP 


ML 


33fl 3 


C9 


84930 




RET 




SSM 


7C 


03010 


DATA16 


LO 


0. H 


53RS 


CDR955 


05820 




CALL 


VALHX2 


SSM 


7D 


05030 




LD 


0, L 


53R9 


47 


05840 


VALHX2 


LD 


8.0 


SSM 


BF 


05B50 




RRCft 




33AE 


BF 


0586B 




RRCA 




SSRC 


BF 


0507B 




RRCA 




ssno 


BF 


B50S8 




RftCA 




sane 


CDB255 


B509B 




CALL 


VALHX1 


5581 


7S 


B510O 




LD 


A. B 


5382 


E68F 


05110 


VALHX1 


AND 


BFH 


5384 


FE80 


85120 




CP 


10 


ssa 


FABB55 


85130 




JP 


H.0P3B 


55 eg 


C607 


03140 




ADD 


ft. 7 


3388 


C630 


05150 


0P38 


ODD 


0. "0" 


33B0 


12 


l"..:;.,' 




LD 


IDE1.0 


SSBE 


13 


85178 




INC 


DE 


5391 


C9 


051B0 




RET 





(IX*DEP ONTERIEUR) 



(IY*DEP ONTKRIEUR) 



a suivre 
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2BI0 PRINT :PRINT :P«lHl :PR1NT ^PRINT'BBHBB 
90NNE CHflNCE- 

78H FORi'iTOsaaa-NOTi 
2812 G0T075 
2899 PRINT"*' 

2988 PRINT -EFC3C3C3CX3C3C3C3C3C3C3CX3C 
3CX3C3C9C3C3C3C3C3C3C3C3C9C3C5 " 
2901 PRINT-CS8388B388 
C5- 



l_C2C 2F 7C2C27578C2C2C 



29B3 PRINT-C5 - - 

■ C5- 
2904 PRINT-C5 - 
2F7C7C2.C4 I 

2305 PR1NT-C5 

C5* 
2980 PRINT'CS 

C5* 
2907 PRINT'CS 



2989 PRINTEFC3C3CSCK3C3C3C3C3C3C3C3C3C 
KXX3C3CXX3C3C3C3C3C3C3C3C3- 

2910 PRIMf 



291 1 PR1NTT5 



2913 PRINT'CS 



i PRINT'CS 



S08E -BE 84Bt 8rt85 



B4—49- 



C5" 



2915 PRINT-C5 ares M - B9 

ft«5 C5" 
2318 PR1NT'ECC4C4C4C«4C«:4C4C«4C4C4C4C 
«C4C4C4C4C«4C4C«««4C«<4C5 * 
291? PRINT 

2919 PRlNT'WOUS UENEZ D'ETRE COULE P« U 
NE MTROUILLE rttRlENHE* 
2970 FORI-1tD9aa0:NEXTI 
2321 OOTOTOaa 

2323 PRINT'8" 

2324 PR1NT-H nOUUEfWfl" 



2925 PRINT'S SURFftCE' 

2926 PRINI'P OONTEE OU DESCENlE* 

2327 PRINT'E irTCRSIDH PER I SCOP 1 0U€ * 

2928 PRINT'U SORTIR LE PERISCOPE" 

2973 PRINT-T RENTRER LE PERISCOPE" 

2930 PRINT-L LECTURE CfttTE rwRIIIME" 

2931 PRINT-t IDENTIFICATION DES NOUI 

RES' 

2332 PRINT'U CufWCEnENT D'UHE IORPIL 

LE* 

2933 PRINT'! TIRER UNE T0RP1LLE" 

2334 PRlNl'C LECTUR6 DCS CYtORWS' 

2335 PRlNl'K ECOUTE OU SONflR" 

2336 PRINT'F rtBflHDON DE Lfl niSSION-F 

IN" 

293? PRINT-7C CONUERSION PtS+UNITES 

DE UrtLEUR' 

734B PKlNl:PRINT:PRINT'UOS ORORES?" 

2341 G0T04B 

2343 PRINT'B- 

2944 PRINT'C?C3C3C3C3C3C3C3C3C3t:3C3C3C3C 
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C5' 
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C5' 

2951 PRINT-C7 
C5- 

7952 PRINT'C? D80C 

C3- 

2353 PRINT'C? F»«B 
C5" 

2354 PRlNl'C? 
C3" 

2955 PRINT'C? 

C5- 
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3001 PRINT" MC4C4C4C4C4C4C4C4C4C4C4I 
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10»4 PRINT-C? EACH 
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IPMABET" 
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(A ' 
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LE LOGICIEL 

DE LA SEMAINE 

Lode Runner Broderbund 
...pour APPLE .COMMODORE 64 et ATARI 




Vous eles un commando galac- 
lique tres lom dans les lignes 
ennemies. les terribles diri- 
geanls de 1'emprre prelevent 
depuis des annees des impols 
prohibilifs en or, amenant le 
peuple au bord de !a famine. 
Votre mission? Vaincfe les 
pieges des cent cinquante ta- 
bleaux (chambres fortes) et re- 
conquerir chaque caisse d'or 
prises au peuple opprime. 
Voire enlramement inlensif cous 
autorise a semer vos poursui- 
vants dans les dedales de cha- 
que chambre. Mais vos ennemis 
ne son! pas stupides ! lis cher- 
chent a vous pousser a lerreur, 
s'ils ne peut vous rattraper. 
Voire seule arme reside dans 
votre pistolel laser qui vous per- 
met de creuser des abimes 
sous les pieds des gardes. 



Pour pouvoir acceder au tableau 
suivant, vous devez prendre 
possession de toutes les cais- 
ses d'or de la piece, puis grim- 
per a I'echelle la plus haute pour 
atteindre I'etage superieur. 
Vous passez les cent cinquanle 
niveaux sans encombres? Rien 
ne vous empeche, grace a I'edi- 
teur de tableaux, de creer vos 
propres chambres fortes. 
Load Runner est un des rares 
jeux daction faisant appel a la 
reflexion. Car si les premiers ta- 
bleaux peuvent se franchir uni- 
quement grace aux refexes, 
d'autres vous poseron! des pro- 
perties apparemment insolva- 



bles. jusqu'a ce que I'idee 

germe. 

Ainsi, le niveau 150 necessite 

un "suicide" pour atteindre les 

deux dernieres caisses. A vous 

de dejouer les pieges multiples 

a leur gre, augmenler la vitesse 

de jeu, tout comme les apprentis 

auront acces a une action au ra- 

lenti. 

Alors bonne chasse au tre- 

sor...Et n'oubliez jamais que le 

peuple expolie sera reconnais- 

sant de votre sacrifice. 

Michael 



PETITES ANNONCES 
GRATUITES 



VENDS GOUPIL 3 configura- 
tion 4 6809 avec 2 FLOPPY 
DFDD 320 Ko, carte graphique 
couleur 256 x 512. tous les 
cordons (serie, parallels, peri- 
tel): 25.000 F. 

Didier CUGY 9 impasse Ar- 
chimbaud 33400 TALENCE 
Tel. :{56) 98.00.82. 

VENDS T07 (fin decembre 83 
sous garantie) + K7 Basic + 
Pictor + Trap + lecteur enre- 
gistreur de K7 Thomson + ma- 
nettes de jeu + livres de jeux 
en basic . Le tout 3500 F. ou 
ECHANGE contre Commodore 
64. Tel. Stephane 302.75.69. 

VENDS carte sonore 11 octa- 
ves Pour ZX 81: 150 F. ou 
eCHENGE contre 16K. Phi- 
lippe MOUGIN Tel.: 
(81)86.96.12. 

VENDS TRS80 M1 L2 16K + 

livres "le pratique du TRS" + 2 
"other mysteries" + monbiteur 
2500 F.Gerard ESCOFFIER 
Tel.: 547.31.79 (apres 19H) 

CHERCHE programme basic 
sur ZX81. VEND ou 
ECHANGE programmes et 
idees. Michel GUERACH, Ke- 
raoul Yzella La Roche Maurice 
29220 LANDERNEAU 

Tel. :(98}21 .47.45 (soir). 

VENDS HP41 (9/82): 900F, 
QUAD MEMORY: 300F.. Lec- 
teur de carte + 100 cartes:800 
F.. X FONTIONS: 400 F.(sous 
garantie). Monsieur CAPREN- 
TIER Francois 1 allee des Pla- 
tanes. Cite de Fromainville. 
78600 MAISONS LAFiTTE. 
Tel.: 962.23.71. 

ACHETE pour TI99/4A Mini 
Memoire el Basic Etendu. pa- 
trick GREGOIRE 33460 MAR- 
GAUX. Tel.:(56)88.30.21 

(apres 20H). 



VENDS Nombreux modules 
jeux pour TI99/4A + manettes 
de jeu. 160 F. Piece. Patrice 
COLLIN 19 rue Gal Patton 
54270 ESSEY LES NANCY. 

VENDS pour Videopac Tele in- 
corporee + Cassettes au 
choix: 1200 F.Bon etat. Eric 
GRAGORI. Tel. :{91)3 1.32.54 
(le soir vers 18H ou Plus). 

VENDS pour TI99/4A modula- 
tezur SECAM (avril 84) entree 
antenne. Prix 400 F. (a debat- 
tre). Annie FREW 

Tel. (859. 50.93 (apres 20H). 

ACHETE petits ecrans derriere 
les bottes de K7 Video ATARI. 
15 F. piece. A envoyer a Ar- 
naud CHEVALIER 1 1bis rue 
de la prosperite.La Varenne 
94210.. 

VENDS ZX81 neuf + 
mem.64K + clavier PRO. Le 
tout 1400 F. (detail possi- 
ble). Tel.: 628.19.07 ou 
001.92.96. 

CHERCHE lecteur disk, pour 
APPLE lie et carte 80 colon- 
nes a prix interessant. Ecrire a 
Stephane BERVARD 41 ave- 
nue du Gal de Gaulle 54210 
SAINT NICOLAS DE PORT. 
Tel.:{8)348.20.02. 

VENDS 40 programmes pour 
TI99/4A -!- 1 livre 102 pro- 
grammes pour TI99/4A. Le 
tout 550 F. ou 6change mo- 
dule B.E. ou mini memoire ou 
modules de jeux. CAO THIAN 
SONG Kl rue sur la Pontine 
79400 LIEGE BELGIQUE. 

VENDS SHARP PC1251 + im- 
primante + programmes + 
manuels. Le lout 1700 F. 
J.P.BAGUET 10 avenue des 
Mesanges 33320 LE TAILLAN- 
MEDOC. Te!.:(56)05.06.32. 
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LA REGLE A CALCUL 

sort une extension memoire 32 l< exterieure pour la console TI 99/4. 

Avec 48 K ram, vous allez realiser des programmes plus performants, 

utiliser le logo 11 (en francais], 

outil indispensable a I'eveil informatique des eleves. 
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LOGO II en francais : Module cnfrchable 
Ce langage destine auxjeunes fait com- 
prendre la philosophic Informatique 
tout en laissant <"i I'cleve la maitrise de 
I'ordinateur par ['obligation de lul don- 
ner des informations compiementalres«1 
votre demande. 

Mathematiqu.es et autres disciplines 
densclgnemenl peuvent etreabordces 
d'une maniere naturelle. 
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